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ABSTRACT 

This  project  serves  as  a  prototype  of  an  automated 
nursing  care  system.   The  project  contains  three  main 
components:  nursing  diagnosis,  nursing  care  plans,  and 
patient  classification.   The  objective  of  this  project  is 
to  marry  the  above  three  nursing  elements  into  a  single 
integrated  system. 

The  program  requires  validation  for  access  and  patient 
admission  capability.   Doctor's  orders  and  nurse's  orders 
comprise  major  inputs  for  determining  the  elements  of 
patient  care.   Patient  care  functions  carry  weighted 

qualifiers  which  input  to  calculate  the  patient 
classification . 

The  project  uses  dBase  III  to  manage  the  database 
functions  and  Exsys  to  calculate  patient  classification. 


TABLE  OF  CONTENTS 

I.    INTRODUCTION  5 

II.    PROJECT  INITIATION  ACTIUITIE5  AND  BACKGROUND  8 

A.  SCOPE B 

B.  COnPUTER/COnPUTING  CONSTRAINTS  9 

1 .  Hardware 9 

2.  Software 9 

3.  Intended  User 9 

C.  DEFINITIONS 10 

1  .   The  Nursing  Care  Plan 10 

2.  The  Nursing  Diagnosis IE 

3.  Patient  Classification  13 

1.   Expert  System 14 

III.    REDUIREnENTS  DEFINITION  AND  ANALYSIS  STAGE  15 

A.  PATIENT  ADniSSIDNS  15 

B.  NURSING  CARE  PLAN  AND  PATIENT  ORDERS  15 

C.  TRACING  USERS  AND  PROGRAM  SAFEGUARDS  19 

D.  USING  AN  EXPERT  SYSTEM  FOR  DETERMINING 
PATIENT  CLASSIFICATION  LEUEL  19 

lU.    DESIGN  STAGE 20 

A.  PATIENT  ADMISSION  CRITERIA  20 

B.  NURSING  CARE  PLAN 20 

C.  DOCTOR  ORDER  CRITERIA  21 

D.  PATIENT  ORDERS 22 

E.  USER  INFORMATION 23 

1 


F.  EXPERT  SYSTEM 24 

G.  SCREEN  FORflfSiT ES 

H.   SOFTWARE  SELECTION  25 

U.    PROGRAnniNG  STAGE  E8 

A.  TRACING  USERS  AND  PROGRAM  SAFEGUARDS  29 

B.  PATIENT  ADMISSIONS  32 

C.  DOCTOR  ORDER  SECTION  33 

D.  NURSING  CARE  PLAN  AND  PATIENT  CLASSIFICATION 
FUNCTION 36 

E.  INFORMATION  SYSTEM  41 

F.  PROGRAM  TESTING 41 

UI.    IMPLICATIONS  FOR  FUTURE  STUDIES  43 

UII.    CONCLUSION 47 

LIST  OF  REFERENCES 49 

APPENDIX  A   CDATA  DICTIONARY]  51 

APPENDIX  B   [STRUCTURE  CHART3  62 

APPENDIX  C   [USER'S  MANUAL]  65 

APPENDIX  D   [CRITICAL  INDICATOR,  QUALIFIERS/UALUES  AND 

RULES]  93 

APPENDIX  E   [PROGRAM  LISTINGS]  14B 

APPENDIX  F   [PROGRAM  SCREENS]  363 

APPENDIX  G   [DATABASE  STRUCTURES]  400 

INITIAL  DISTRIBUTION  LIST  402 


I.  INTRODUCTION 

The  appropriate  time  to  assess  the  nurse's  automation 
needs  is  ujhen  a  hnspital-iuidB  system  is  being  proposed. 
The  Navy  Nurse  Corps  is  currently  in  this  unique  position. 
A  Mission  Element  Needs  Statement  proposed  the  creation  of 
the  Composite  Health  Care  System  in  1979.  f^   formal  Request 
For  Proposal  allowed  vendors  to  bid  for  the  implementation 
of  the  system  in  1985.   The  Composite  Health  Care  System 
calls  for  a  phased  implementation  process  with  phase  one 
scheduled  to  begin  in  1986.   Inpatient  activities, 
including  the  areas  addressed  in  this  project,  occur  in 
phase  two.   The  Navy  Nurse  Corps  faces  a  system 
implementation  imminently.   Timing  dictates  that  the  Nurse 
Corps  seek  prototypes  of  automated  systems  that  best  serve 
its  needs. 

This  project  serves  as  a  prototype  of  an  automated 
nursing  care  system.   The  project  contains  three  main 
components:  nursing  diagnosis,  nursing  care  plans,  and 
patient  classification.   The  objective  of  this  project  is 
to  marry  the  above  three  nursing  elements  into  a  single 
integrated  system.   fleeting  the  objective  necessitates  the 
inclusion  of  the  doctor's  orders.   The  doctor's  orders,  in 
combination  with  the  nurses 's  orders,  reflect  the 
independent,  dependent  and  interdependent  activities  of 
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nursing.   The  combined  orders  serve  as  the  foundation  for 
the  nursing  care  plan  and  the  patient  classification 
system.   Departmental  interfaces  demand  inclusion  in  the 
design  of  any  nursing  care  software  package. 

To  provide  a  realistic  setting,  the  program  requires 
validation  for  access  and  patient  admission  capability. 
The  validation  for  entry  is  a  necessity  to  safeguard 
patient  information  from  unauthorized  access  and  invasion 
of  privacy.   Patient  admission  capability  allows  for 
identifying  and  testing  different  patient  scenarios. 

This  prototype  project  gives  a  partial  operational 

solution  to  the  planning  model  proposed  by  Rieder  and 

Norton  in  "An  Integrated  Nursing  Information  System  -  A 

Planning  Model."    Reider  and  Norton  state, 

the  processing  step  of  classifying  patients  could  be 
fully  automated.   The  computer  could  process  patient 
information  and  determine  each  patient's  acuity  category 
from  the  Critical  Indicator  parameters  stored  within 
the  system.   As  orders  and  plans  of  care  change,  the 
computer  also  will  update  each  patient's  acuity  category 
and  display  the  results  on  demand.   CI: 783 

This  program  plans  to  show  one  way  of  automating  the 

patient  classification  system  using  nursing  diagnosis  and 

patient  care  plans. 


II  .  PROJECT  INITIPlTION  ftCTIUITIES  f=^ND  BPiCKGROUND 

This  softLunrB  prajact  follDLas  the  Dutlins  prBsentsd  by 

Pressman  CE3  and  found  in  the  GSA  Office  of  Softujare 

Development  publication  "Establishing  A  Softiuare 

Engineering  Technology  CSETD."   In  this  publication,  the 

Federal  Software  Testing  Center  describes  SET  as: 

Software  engineering  is  sometimes  referred  to  as  the 
discipline  that  brings  order  to  the  software  development 
process.   [13:32 

This  software  development  effort  concentrates  on  the  first 

three  nf  six  software  life  cycle  stages  outlined  by  SET. 
These  steps  are  requirement  definition  and  analysis, 
design,  and  programming.   The  final  three  stages  of 
validation,  operation  and  review  remain  for  a  follow-on 
project . 

A.   SCOPE 

This  software  product  limits  its  application  to  an  in- 
hospital  medical-surgical  environment.   The  emphasis  is  on 
automating  the  nursing  care  plan  activities  driven  by 
nursing  diagnosis.   The  patient  classification  system  uses 
an  expert  system  for  automation.   Automating  the  nursing 
care  plan  activity  holds  potential  for  improving 
documentation,  resulting  in  better  patient  care. 
Automating  the  patient  classification  system  provides  for 
consistency  and  accuracy  in  assigning  points  for  all 
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patient  care  parameters.   This  provides  for  easy,  rapid 
classification  of  patients  giving  the  decision  makers 
necessary  and  timely  information  to  make  effective  staffing 
assignments . 

B.   COnPUTER/COnPUTINB  CONSTRAINTS 

1 .  Hardujare 

The  computer  hardware  chosen  for  this  project  is 
the  IBM-PC  or  IBn-compatible  machine.   Nurse  Corps  Officers 
testing  the  prototype  model  operate  available  2enith-150 
microcomputers  located  within  the  nursing  service 
departments.   These  microcomputers  are  configured  with  two 
floppy  disk  drives.   The  capacity  of  floppy  disks  to  hold 
data  delineates  the  maximum  size  of  the  project. 

2.  gpftwqre 

This  project  uses  off-the-shelf  software.   However, 
no  current  product  on  the  market  provides  for  both  the 
automation  of  a  nursing  care  plan  and  for  patient 
classification.   A  versatile,  multipurpose  programming 
software  package  adaptable  to  the  project  design  provides 
the  means  to  integrate  the  nursing  activities. 

3.  Intended  User 

Navy  Nurse  Corps  functions  are  currently  not  highly 
automated.   It  is  a  goal  of  the  software  product 
development  to  make  the  system  user-friendly  and 
understandable  even  to  the  novice  nurse.   The  system 
designed  is  for  use  as  a  tool  for  the  professional  nurse. 
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stringent  programming  measures  reduce  the  understanding 
required  of  the  inner  workings  of  a  computer. 

C.   DEFINITIONS 

1 .   The  Nursing  Care  Plan 

The  nurse  is  a  manager  of  time,  energy  and 
resources.   Conscientious  planning  occurs  throughout  the 
many  levels  of  a  nurse's  job.   The  nursing  care  plan  is  at 
the  heart  of  what  a  nurse  should  get  accomplished  for  a 
patient.   The  nursing  care  plan  allous  the  nurse  to 
approach  each  patient  with  a  documented  plan  of  action. 
The  care  plan  needs  to  contain  sufficient  information  on 
the  patient  to  make  it  pertinent  without  making  it  lengthy 
and  unwieldy . 

Currently,  the  writing  of  nursing  care  plans  is 
not  a  popular  activity.   [14-6;]   Nurses  agree  that  patient 
care  planning  is  necessary .   They  disagree  on  how  best  to 
implement  the  documentation  of  nursing  care  plans. 
Education  and  practice  direct  nurses  to  prioritize  energies 
on  administering  patient  care.   This  is  an  admirable  goal 
to  strive  toward,  but  one  often  infringed  upon  by 
non-patient  care  requirements.   Animosity  exists  between 
the  need  to  provide  the  necessary  nursing  care  and  the  time 
spent  documenting  the  care.   flanual  documentation  currently 
eats  up  40  per  cent  of  a  nurse's  time.   C7:2BD 

Uarious  approaches  to  encourage,  enable  and 
persuade  nurses  to  complete  nursing  care  plans  have  been 
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tried.   The  Joint  Commission  on  Accreditation  of  Hospitals 
CJCAHD  requires  a  documented  plan  of  care  for  every 
patient.   CB:9BD   Texts  have  been  published  to  inform 
nurses  about  suggested  care  planning  methods.   C9-10D 
Many  hospitals  establish  nursing  committees  to  provide 
standardized  care  plans.   Standardized  care  plans  attempt 
to  save  nurses  the  time  and  energy  necessary  to  develop 
original  care  plans.   They  still  allouj  individualization  of 
plans.   These  attempts  to  simplify  care  plan  writing 
activities  have  not  succeeded.   What  often  results  is  a 

nursing  care  plan  ujrittan  precursory  to  assessing  the  true 
needs  of  the  patient.   The  plan  rapidly  outdates  itself. 
Plans  frequently  need  updating.   The  care  plans  lack 
consistency  from  one  practitioner  to  another.   Patient  care 
plans  written  to  meet  JCAH  requirements,  fall  short  of 
matching  the  spirit  behind  them. 

A  possible  solution  to  the  above  care  planning 
dilemma  is  beginning  to  appear  in  nursing  literature.   In 
many  instances  that  solution  is  a  successfully  implemented 
automated  nursing  system.   Cll-ISD   Where  a  successful 
automated  system  exists,  more  nurses  actively  develop  care 
plans  for  their  patients.   Nurses  perceive  the  automated 
plans  as  helpful  and  pertinent  to  the  care  delivered.   The 
speed  and  ease  of  entering  care  plans  pays  dividends  of 
better  nursing  care  documentation.   Their  timely  output 
encourages  active  use  of  the  plans. 

11 


2.   The  Nursing  Diagnosis 

One  accepted  method  for  formulating  a  nursing  care 

plan  commences  with  a  nursing  diagnosis.   A  nursing 

diagnosis,  as  stated  by  Carpenito,  is: 

a  statement  that  describes  a  health  state  or  an  actual 
or  potential  alteration  in  one's  life  processes  Cphysio- 
logical,  psychological,  sociocultural ,  developmental,  and 
spiritual].   The  nurse  uses  the  nursing  process  to  identify 
and  synthesize  clinical  data  and  to  order  nursing 
interventions  to  reduce,  eliminate,  or  prevent  Chealth 
promotion]  health  alterations  which  are  in  the  legal  and 
educational  domain  of  nursing.   [113:4] 

Automation  was  one  of  the  catalysts  behind  the 
First  National  Conference  on  Classification  of  Nursing 
Diagnoses.   Since  the  first  conference,  5E  of  the  most 
pertinent  nursing  diagnoses  Cthrough  the  Sixth  National 
Conference  of  the  North  America  Nursing  Diagnosis 
Association],  have  been  identified.   Nursing  diagnoses, 
along  with  delineating  the  etiology  and  interventions 
appropriate  to  each,  has  produced  a  national  effort  aimed 
at  unifying  activities  in  nursing.   C14:xi]   The  nursing 
diagnosis  approach  has  received  broad  support  from  the 
nursing  community.   The  nursing  diagnosis  drives  this 
computer  project. 

Numerous  texts  provide  sample  or  generic  statements 
initiated  by  nursing  diagnosis.   Many  hospitals  interested 
in  implementing  automated  nursing  care  planning  use 
standard  texted  plans.   This  program  extracts  examples  from 
Doenges  CIS]  and  Crosley  CIS]. 
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A  nursing  diagnosis  is  multileveled .   A  nursing 

diagnosis  can  be  any  one  of  the  52  approved  nursing 

diagnoses.   Each  diagnosis  has  an  assessment  level. 

Assessment  levels  are  defining  characteristics  observed  by 

the  nurse  or  subjectively  stated  by  the  patient.   The 

nurse's  observation  or  the  patient's  statement  is 

relational  to  some  etiology  or  underlying  cause.   The 

underlying  cause  statement  helps  the  nurse  evaluate 

realistic  goals  for  the  patient  to  achieve.   Goal  setting 

is  the  fourth  level  of  nursing  diagnosis.   The  final  level 

is  selecting  nursing  actions  or  nurse's  orders  directed 

toward  achieving  the  stated  goal . 

a.   Patient  Classification 

Patient  classification  is: 

the  grouping  of  patients  according  to  an  assessment  of 
their  nursing  care  requirements  over  a  specified  period  of 
time.   C17:BD 

A  valid  patient  classification  tool  enables  proper  staffing 

evaluation.   This  program  uill  adopt  the  Navy  Nurse  Corps' 

Workload  Management  System  for  Nursing.   This  method  of 

classifying  patients  exists  in  all  inpatient  Navy 

facilities.   The  Nurse  Corps  has  established  solid 

criteria-based  critical  indicators  which  this  program  will 

exploit  for  deriving  a  classification  level .   The 

classification  level  equates  an  amount  of  nursing  time 

required  to  give  patient  care. 
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The  Navy  Nurse  Corps  is  ahead  of  its  civilian 

counterparts  in  its  use  of  a  sophisticated  tool  to  measure 

patient  classification  level  .   The  use  of  the  Workload 

Management  System  worldujide  has  given  the  Nurse  Corps 

excellent  data  to  improve  its  system.   The  continual 

drawback  that  many  manual  tools  have,  including  this  one, 

is  subjectivity  and  inconsistency  across  users.   UJith 

inservice  training  and  auditing,  the  Nurse  Corps  attempts 

to  keep  the  reliability  of  its  model  high.   f=^utamating  such 

an  activity  would  enhance  consistency  and  accuracy. 

4 .   Expert  Sustem 

This  program  will  introduce  an  expert  system 

limited  to  the  patient  classification  documentation.   Ryan 

defines  an  expert  system  as  a  system  capable  of  operating 

ujith  a  large  knoujladgs  database,  processing  information  on 

expert  level .   She  continues  with 

benefits  of  expert  systems  are  that  they  can  capture, 
replicate,  and  distribute  expertise.   C18:773 

As  a  large  standardized  nursing   knowledge  database 

accumulates,  the  application  of  expert  systems  will  increase 

in  importance. 

For  this  project,  patient  classification  adapts 

well  to  an  expert  system  approach.   The  critical  indicators 

and  their  associated  value  can  easily  fit  the  if-then 

format  of  most  expert  systems.   The  expert  system  will 

extract  from  a  patient's  orders  the  applicable  critical 

indicator  values  and  calculate  a  classification  level. 


Ill  .  REaUIREMENTS  DEFINITION  ftND  P^NftLYSIS  STPlGE 

The  first  stage  of  softujore  development  is  the 
requirements  definition  and  analysis  stage.   This  stage 
defines  the  purpose  of  the  system  and  examines  the 
different  components  that  ultimately  make  the  whole.   The 
prototype  system  provides  the  nurse  with  a  tool  to  assist 
in  the  documentation  of  the  nursing  care  plan  and 
calculation  of  a  patient  classification  level  . 

A.  PATIENT  ADMISSIONS 

Nurses  cannot  exercise  their  skills  without  patients. 
The  ability  to  bring  patients  into  the  system  [admission], 
and  have  them  exit  the  system  [discharge]  provides  a 
realistic  situation.   The  varying  population  number 
necessitates  an  expandable  capacity  for  holding  patient 
information. 

B.  NURSING  CARE  PLAN  AND  PATIENT  ORDERS 

A  patient  occupies  a  specific  bed  in  a  numbered  room 
located  on  one  of  several  nursing  wards.   After  the  patient 
arrives  on  the  ward,  doctors  write  orders.   The  nurse 
interviews  the  patient  and  develops  a  nursing  care  plan. 
The  care  plan  consists  of  one  or  more  nursing  diagnoses. 
Each  nursing  diagnosis  has  one  or  more  assessments,  related 
factors,  patient  goals  and  nursing  orders.   The  initial 
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doctor's  and  nurse's  orders  comprise  the  patient  care 
requirements.   The  patient  care  requirements  determine  the 
patient  classification  level  . 

The  orders  determine  the  patient  care  requirements. 
Both  doctor's  and  nurse's  orders  dictate  nursing  care 
activities.   The  calculation  of  a  patient  classification 
hinges  on  the  analysis  of  the  patient  orders  for  relevant 
critical  indicators. 

A  patient  order  consists  of  the  date,  the  time,  the 
order,  the  frequency  of  the  order,  and  the  practitioner 

initiating  the  order .   Data  and  time  dapendency  is  critical 
for  patient  orders.   An  order's  data  and  time  determines 
whether  the  order  is  current  or  due  for  deletion.   The 
order  date  is  also  important  for  patient  classification 
determination.   Patient  orders  prescribed  for  a  specific 
number  or  repetitions  Ci.e.  x  3  or  x  12D  are  nonrecurring 
orders.   Nonrecurring  orders  input  to  patient 
classification  calculation  only  on  the  date  they  were 
issued .  ,- 

The  purpose  of  the  critical  indicators  is  to  easily 
translate  patient  orders  to  a  patient  classification  level 
in  a  manual  system.   Only  those  orders  that  closely  parallel 
the  critical  indicators  in  the  Nurse  Corps'  Workload 
Management  System  for  Nursing  need  consideration. 
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A  need  exists  for  the  user  to  identify  a  patient  then 
move  on  to  select  patient  orders.  The  indexing  of  orders 
to  allow  for  logical  progression  aids  the  process. 

Individual  orders  will  need  to  be  linked  to  a  relevant 
critical  indicator.   Many  critical  indicators  are  time  or 
frequency  dependent.   The  program  should  tie  these  factors 
together.   Patients  frequently  require  several  doctor's 
orders  from  the  same  section.   The  program  would  need  to 
accommodate  for  some  type  of  looping  to  handle  multiple 
order  entry  for  a  single  subcategory . 

The  practitianar  is  a  dnctnr  or  a  nurse  qualified  to 
enter  patient  orders.   The  program  should  have  an  internal 
check  to  assure  that  a  practitioner  has  limited  ordering 
access  pertinent  to  their  qualifications. 

The  patient's  condition  is  dynamic.   The  program  will 
need  to  provide  an  easy  method  to  modify  changes.   Nursing 
care  plans  vary  in  length  and  content.   Some  patients  have 
multiple  nursing  diagnoses,  while  others  have  only  one. 
The  program  would  have  to  accommodate  for  these  variations. 

Some  method  would  need  to  be  available  for 
communicating  modifications  to  staff  members.   This 
communication  process  is  best  if  the  output  is  in  a  printed 
format.   Printed  output  allows  for  the  information 
transmittal  to  staff  members  even  when  away  from  the 
computer  location. 
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A  number  of  nursing  diagnoses  in  the  system  is 
desirable.   Patient  needs  cannot  be  anticipated.   A  variety 
of  diagnoses  allows  for  specific  selection.   Because  a 
nursing  diagnosis  requires  documentation  of  assessments, 
related  factors,  goals  and  nurses'  orders,  these  functions 
require  inclusion. 

C.   TRACKING  USERS  AND  PROGRAM  SAFEGUARDS 

Some  input  information  should  distinguish  for  the 
system  that  the  current  user  is  either  a  doctor  or  a  nurse. 
A  doctor  uiill  want  to  choose  a  ward  for  patient  admission, 
identify  the  patient  and  select  orders.   A  nurse  will  want 
to  select  a  ward  and  patient  but  then  either  select  a 
nursing  diagnosis  or  calculate  a  patient  classification. 
The  doctor/nurse  functions,  although  related  by  patient 
selection  are  different  in  nature.   When  users  enter  the 
system  the  program  should  identify  whether  they  are  doctors 
or  nurses,  and  direct  their  attention  to  the  appropriate 
branch  of  the  program . 

The  program  selectively  allows  access  to  program 
information  to  eliminate  unauthorized  access.   The  program 
contains  hypothetical  patient  information.   Nevertheless, 
addressing  the  privacy  of  sensitive  patient  information  is 
relevant  even  in  a  prototype  setting.   Safeguards  built 
into  the  system  reduce  the  chance  of  successful 
unauthorized  entry . 
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D.   USING  AN  EXPERT  SYSTEM  FOR  DETERMINING  PATIENT 
CLASSIFICATION  LEUEL 

A  self-imposed  requirement  of  the  system  is  to  use  an 
expert  system  to  determine  the  patient  classification 
level .   This  expert  system  should  interpret  the  patient 
order  as  to  which  critical  indicator  applies  and  the 
frequency  of  its  performance.   The  expert  system  then 
translates  that  information  into  patient  care  points  which 
then  calculates  a  patient  classification  level. 

The  use  of  an  expert  system  would  allow  a  user  the 
option  of  reviewing  rules  used  in  calculating  the  patient 
classification.   The  patient  classification  tool  is 
continually  evolving.   By  monitoring  rules  and  their 
underlying  critical  indicators,  the  user  gets  a  visual 
output  of  the  points  and  how  they  were  derived. 
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lU.  DESIGN  STftGE 

The  design  stage  attempts  to  ansuer  hou  the  system  uill 
accomplish  the  requirBmants  autlinad  in  the  rBquiramants 
definition  and  analysis  stage. 

A.  PATIENT  ADniSSION  CRITERIA 

The  need  analysis  pointed  out  the  requirement  for 
handling  varying  numbers  of  patients  with  set  criteria  on 

Bach  patisnt.   Tua  nptinns  to  maat  this  raquiramant  ara  an 
automated  file  system  or  a  database  system.   Generalized 
patient  data  that  uould  need  to  be  included  are:  patient's 
first,  middle  and  last  names;  their  rate  or  rank;  their 
family  member  prefix  concatenated  uith  their  social 
security  number  giving  a  unique  identifier;  birthdate;  age; 
sex;  admission  date;  hospital  registration  number;  medical 
diagnosis;  physician;  prognosis;  allergies;  as  well  as 
their  nursing  ward,  room  and  bed  assignments.   CSee 
Appendix  A,  Data  Dictionary;  Appendix  B,  Structure  Chart; 
and  Appendix  C,  User's  rianual  for  additional  information . 3 

B.  NURSING  CARE  PLAN 

A  representative  four  of  the  52  approved  nursing 
diagnoses  were  selected  due  to  the  floppy  disk  capacity 
constraint.   To  some  degree,  every  patient  experiences  self- 
care  deficit  when  admitted  to  the  hospital .   Other  diagnoses 
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are  more  applicable  to  some  specific  area  in  nursing.   The 
three  other  nursing  diagnoses  reflect  diagnoses  frequently 
seen  in  a  military  hospital  setting.   These  diagnoses  are: 
comfort,  alteration  in:  pain;  communication,  impaired: 
verbal;  and  impaired  physical  mobility. 

Critical  indicators  that  fall  under  the  independent  and 
interdependent  roles  of  nursing  need  to  be  identified. 
After  identification,  these  indicators  require 
incorporation  into  the  nursing  order  screens  for  selection. 
These  critical  indicators  need  to  be  back-chained  to  one  of 
the  four  nursing  diagnoses,  to  provide  for  their  sslection. 

The  critical  indicators  on  the  Patient  Classification 
Critical  Indicators  C19:10D  list  that  were  identified  as 
independent  or  interdependent  nursing  functions  were:  all 
activities  of  daily  living  except  turning  frame;  spoon 
feeding  adult  and  children  patients;  accompany  patient  off 
ward,  other  activities  requiring  nurse's  time  and  special 
procedures;  range  of  motion  exercises;  and  all  items  listed 
under  teaching  and  emotional  support.   This  is  an  initial 
grouping,  conservatively  chosen. 

Multiple  nursing  diagnoses,  with  their  corresponding 
assessments,  related  factors,  goals  and  nursing  orders,  can 
be  handled  with  either  a  file  system  or  a  database  system. 

C.   DOCTOR  ORDER  CRITERIA 

The  criteria  to  include  doctor  order  categories  will  be 
to  meet  critical  indicator  requirements  and  provide  a 
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representative  model  of  patient  orders.   An  admission 
section  monitors  the  patient  floui.   This  satisfies  the 
critical  indicators  of  admitting  and  transferring  patients. 
An  activity  section  captures  the  mobility  level  of  a 
patient.   A  diet  section  captures  the  dietary  requirements 
of  a  patient.   A  section  provides  selections  of  intravenous 
and  blood  products  that  a  patient  might  require. 
Laboratory  and  pharmacy  sections  allow  orders  for  lab  tests 
and  medications.   A  monitoring  section  allows  options  for 
monitor  orders.   A  radiology  section  captures  radiology 
test  orders.   A  respiratory  therapy  and  vital  sign  section 
allows  orders  that  relate  to  those  areas.   Finally,  a  ward 
routine  section  captures  the  nursing  care  activities 
normally  restricted  to  the  ward  setting. 

These  categories  would  allow  for  the  dependent  and 
interdependent  functions  of  nursing,  which  the  critical 
indicator  list  includes.   Either  a  file  or  a  database 
implementation  would  satisfy  these  requirements. 

D.   PATIENT  ORDERS 

Microcomputers  have  the  ability  to  maintain  an  internal 
clock  upon  entry  of  the  current  date  and  time.   The  program 
would  need  to  pick  up  this  data  from  the  system's  clock  to 
attach  it  to  patient  orders.   The  actual  order  length  would 
need  limitation  to  a  number  that  would  best  suit  a  screen 
presentation  format.   The  number  of  options  for 

22 


time/frequency  uould  need  to  include  those  commonly  Found 
in  a  medical  environment. 

The  design  should  accomplish  the  looping  For  multiple 
orders  in  a  single  subcategory.   Once  selected,  an  order  is 
activated  and  placed  in  an  order  File  or  database.   The 
program  returns  For  another  order  or  to  have  the  user  select 
to  move  on . 

E.   USER  INFORMATION 

The  use  oF  a  user  chosen  password  to  access  the  program 
would  accommodate  all  oF  the  identiFied  requirements. 
Utilizing  a  user  inFormation  database  would  provide  For 
users  to  be  added  or  deleted  From  the  program.   The 
database  carries  their  status  within  the  organization  and 
provides  an  access  level  For  legal  entry  into  the  program. 
A  doctor  or  nurse,  by  signing  on  to  the  system  and  entering 
their  valid  password,  would  dictate  which  branch  the 
program  should  route  them  through.   The  password  would  also 
limit  those  not  authorized  to  use  the  system  From  entering 
the  program . 

To  provide  For  a  degree  oF  user  specialization,  the 
design  proposes  Four  areas  oF  access.   The  First  is  For 
admissions  personnel.   In  a  hospital,  the  admissions 
department  is  physically  separate  From  the  ward.   Admissions 
personnel  are  responsible  For  the  input  oF  patient  inFormation 
The  second  group  is  the  nurses  who  develop  the  nursing 
care  plan  and  determine  the  patient  classiFication .   The 
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third  group  is  the  physicians  uiho  select  doctor's  orders. 
The  fourth  group  is  the  information  systems  personnel.   Their 
role  would  be  to  add  neuj  users  and  delete  obsolete  ones. 
Access  level  assignments  occur  during  routine  check-in 
procedures  of  personnel.   The  actual  assigned  level  would 
depend  upon  the  employing  department  and  the  job  position. 
Additionally  a  fifth  group  exists  for  the  prototype  model. 
This  is  a  group  of  users,  with  passwords  allowing  access 
to  all  areas  to  aid  in  the  testing  and  integration  of  the 
software  model . 

F.   EXPERT  SYSTEM 

The  expert  system  calls  for  special  input 
consideration.   A  patient  order  consists  of  the  order  and 
the  frequency.   Major  order  headings  Ci.e.  vital  signsD  can 
be  categorized  as  a  qualifier.   Listed  under  each  qualifier 
is  its  potential  values  Ci.e.   QID  or  less,  q4h  or  x  6,  q2h 
or  X  IE,  qlh  or  x  243.   From  this  system  of  qualifier  and 
value,  rules  can  be  derived  Ci.e.  vital  signs  DID  or  lass 
receives  a  value  of  1  patient  point].   By  splitting  the 
critical  indicators  into  qualifiers  and  values,  thus 
setting  up  conditions,  the  formulated  rules  allow  the 
system  to  derive  a  patient  classification  level.   CSee 
Appendix  D . ] 
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B.   SCREEN  FDRnAT 

User  friendliness  is  a  goal  many  programs  strive  to 
achieve.   This  program  will  follouj  many  of  the  suggestions 
of  Plonk's  text  on  Fundamentals  of  Human-Computer 
Interaction.   C203   The  program  will  rely  on  consistent 
screen  formats  ujhich  locate  user  instructions  in  the  same 
place  on  each  screen.   After  patient  identification,  the 
patient  information  is  put  on  every  screen  so  the  user  has 
no  question  which  patient  he  has  selected.   The  program 

will  prnvidB  the  user  with  consistent  input  locatians. 
Screens  are  uncluttered  and  easy  to  follow.   The  screen 
color  is  white  lettering  on  blue  background.   Although 
speed  is  not  a  prime  consideration  for  this  model,  it 
influences  the  selection  of  the  method  of  screen 
projection.   A  software  utility  called  Flashcode  creates 
the  screen  projections.   Where  possible,  the  user  returns 
to  a  previous  screen,  or  to  a  home  base  to  reorient 
themselves.   A  rudimentary  help  facility  allows  on-line 
assistance.   The  help  facility  demonstrates  its  function 
rather  than  providing  indepth  assistance  with  this 
prototype  model.   CSee  Appendix  E  and  Appendix  F.3 

H.   SOFTWARE  SELECTION 

With  hardware  choice  set  by  the  constraints  of  the 
user,  software  compatibility  is  the  remaining  issue. 
Numerous  software  packages  exist  for  IBri-compatible 
microcomputers.   Information  in  a  database  format  provides 
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increased  data  Flexibility  and  maneuverability.   Some 
advanced  programming  tools  provided  by  database  software 
producers  simplify  the  task  of  programming.   These  are 
major  incentives  to  choose  a  database  orientation.   The 
database  language,  dBase  III,  has  user  friendly  features 
and  the  capability  for  meeting  most  of  the  identified 
requirements.   An  area  for  ujhich  dBase  III  can  only  provide 
a  partial  solution  is  the  expert  system.   The  dBase  III 
program  has  the  ability  to  calculate  patient  point  totals 
and  derive  a  patient  classification  level.   It  lacks  the 
option  of  allowing  the  user  to  see  uhy  it  calculated  its 
results  in  a  specific  way. 

The  expert  system  chosen  is  Exsys.   Exsys  is  an  off- 
the-shelf  expert  system  that  can  accommodate  the  number  of 
critical  indicators  outlined  in  the  Navy's  Nurse  Corps' 
Uorkload  flanagement  System  for  Nursing.   This  software 
product  can  also  do  the  necessary  calculations  required  to 
arrive  at  a  patient  classification  level . 

The  information  format  coming  into  Exsys  requires  the 
statement  of  qualifiers  and  values.   The  dBase  III  language 
accommodates  for  this  by  including  the  qualifier  and  value 
with  each  order  selected.   A  salient  feature  of  Exsys,  that 
makes  it  especially  appropriate  for  this  design,  is  its 
ability  to  import  data  from  an  output  file.   Exsys  operates 
as  an  interactive  independent  program  using  the  same 
conditions  and  rules.   This  option  is  useful  because  of  the 
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iterative  nature  of  both  the  critical  indicator  development 
and  that  envisioned  for  this  system.   In  addition,  Exsys 
does  alloui  the  user  to  view  rules  used  to  derived  a 
classification.   A  visual  check  of  the  applied  rules 
against  the  individual  patient  order  alloujs  the  achievement 
of  greater  reliability.   CSee  Appendix  D.3 
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U.  PROGRQfiniNG  STAGE 

The  programming  stage  constructs  a  product  for  the 
user.   The  softuare  product  incorporates  details  identified 
in  the  analysis  and  design  stages  to  produce  a  ujorkable 
solution.   The  product's  overview  is  presented  in  Figure  1. 


Figure  1 


Nursing  Prototype  Product  Overvieiu 


Box  1  Coordinating  Module 

Box  1.1  Patient  Admissions 

Box  l.S  Select  Ward  and  Patient 

Box  l.E.l  Select  Doctor  Orders 

Box  l.E.E  Select  Nursing  Diagnosis,  Nursing  Orders  and 

Patient  Classification 

Box  1.3  Patient  Classification 

C D  Expert  System  CExsysl 

A  modular  approach  uas  used  for  programming.   Appendix 

B  displays  the  design  modular  structure  of  the  prototype 

system — a  detailed  version  of  Figure  1.   This  structure  was 

used  as  a  guide  in  program  development.   Programming 
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modularity  allows  the  programmer  to  uiork  uith  smaller  more 
manageable  units.   This  enables  the  programmer  to  easily 
test  and  debug  a  module  before  integrating  it  into  the 
system .   The  use  of  comments  throughout  the  programming 
effort  attempts  to  improve  the  maintainability  of  the 
program.   CSee  Appendix  E  for  program  listings.] 

A.   TRACKING  USERS  AND  FRDGRAM  SAFEGUARDS 

In  programming  modules  the  author  has  tried  to  minimize 
the  number  of  steps  required  for  the  user  to  move  between 
modules.   Ulhenever  possible,  the  system  automatically 
advances  the  program  to  the  next  screen. 

Screens  are  used  in  this  chapter  to  demonstrate  the 
method  used  to  convert  design  details  to  workable 
solutions . 

The  program  opens  with  an  introductory  screen  CFigure 
BD  .   The  screen  gives  information  on  the  organizations 
supporting  the  program  and  identifies  the  author. 
Depressing  any  key  advances  the  program  to  a  screen 
requesting  a  password  CFigure  33 .   Advancing  beyond  the 
second  screen  requires  a  valid  password.   The  program 
compares  the  entered  password  against  a  database  of  user's 
passwords.   If  the  password  is  a  match,  the  user  moves 
forward  to  the  main  branching  module  of  the  program. 
Incorrect  passwords  deny  access  with  the  opportunity  to 
re-enter  a  password . 
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RELEASE  1 


PRESS  ANY  KEY  TO  BEGIN 


Figure  2 


Introductory  Screen 


•••    Plooaa    SiO"    On    By    EntBring    Pasaword    ••« 


••    Password 


Figure    3 


Ualidation  Screen 


30 


As  a  result  of  entering  a  valid  passujord,  the  system 
now  recognizes  the  user  by  name  and  access  level  CSee 
Figure  43 . 


•"  Prototypo  naator  Screen  •• 


Dote      Time 


••  Select  the  Desired  Option  ••• 


ID  Admission's  Department 


5  3  Doctor's  master 


3D  Nursing  master 


HD  Sgstem  Administration 


OD  Sign-Off 


Current  User: 


Select  one  numder  CO-ID  — — >  ■ 


Figure  4 


Prototype  Plaster  Screen 


Tha  four  user  access  levels  availnfala  in  this  prngram  are 
admissions  personnel,  nurses,  doctors,  and  administrative 

personnel.   The  current  user's  name  appears  in  the  bottom 

left  corner  of  each  screen.   Since  the  system  nouj 

recognizes  a  user  by  name  and  access  level ,  the  main 

branching  module  restricts  the  user's  entry  to  a  branch 

corresponding  to  that  access  level  . 

The  main  branching  module  provides  five  options  for 

selection.   The  first  option,  uhich  appears  on  essentially 

every  screen,  is  to  sign-off  from  the  system.   This  ends 

the  current  user's  session,  and  returns  the  program  to  the 

introductory  module.   The  other  four  options  relate  to  the 

main  sections  of  the  program. 
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B.   PATIENT  ADniSSIDNS 

The  selection  of  admission's  department  advances  the 
program  to  an  admit/discharge  option  module.   The  admit 
option  moves  the  user  to  a  patient  data  input  screen 
[Figures  5,BD.   Admitting  a  patient  requires  the  user  to 
input  patient  data  to  a  patient  information  database.   CSee 
Appendix  C  for  the  User's  Manual.]   From  this  database,  the 
program  uses  the  patient's  name,  family  member  prefix- 
social  security  number  Cfmp-ssn],  ward,  room  and  bed. 
After  entering  the  patient  data,  the  user  returns  to  the 
admit/discharge  module. 

The  selection  of  discharge  a  patient  moves  the  user  to 
the  discharge  module.   The  user  reviews  and  selects 
patients  for  discharge.   Upon  leaving  the  discharge  module, 


•••  SELECT  ADniT  /  DISCHARGE  OPTION  ••• 


13   Admit  fl  Patient. 


23   Discnaroo  A  Patlont 


0]  Sign-Off 


Current  User: 


Select  one  number  CO-23  — — >   « 


Figure  5 


Admit/Discharge  Screen 
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Patient  Admission  Form 


Last  Noma: 
First  Name: 
nid  Initial: 
Roto/Rank: 
FnP-SSN: 

Birthdato: 

Aga: 

Sex: 

Admit  Data: 


/   / 


/   / 


Raolstratlon  No: 
medical  Dlaonosis: 
Phgsicion: 
Prognosis: 
Allergies: 
Nursing  Ward: 
Room  Numtjer : 
Bed: 


Figure  6       Patient  Admission  Screen 
the  program  purges  all  patient  records  flagged  for 
discharge.   The  program  also  purges  any  patient  data  in 
other  databases  with  identical  fmp-ssn  identifiers.   CSee 
Appendix  G  .  3 

This  module  limits  itself  to  handling  primitive 
admit/discharge  situations.   Although  limited,  this  module 
alloujs  the  nurse  user  to  test  a  number  of  patient  scenarios 
while  working  with  the  prototype  system. 

C.   DOCTOR  ORDER  SECTION 

The  doctor  option  of  the  mam  branching  module  advances 
the  physician  to  the  nursing  ward  selection  module.   The 
doctor  chooses  between  one  of  two  nursing  wards  CFigure  73 . 
A  surgical  and  medical  ward  option  reflects  the  major 
divisions  of  patients  in  a  hospital .   Options  to  return  to 
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the  main  branching  madula  or  to  sign-nff  the  system  are 
also  provided. 

A  ward  selection  moves  the  program  to  one  of  two 
nursing  wards  containing  six  beds  CFigure  B] o 


••  Nursa's  Station  Salactlon  •• 


Data     Ti»a 


►••  Sfliact  Nursing  Unit  to  Displog  Patiants  ••« 


13  2E   SuroicQl  Word 


23  3E   nedlcal  uwrd 


03  Sion-Off 


3  3  nastar  Scraan 


Currant  Uaar : 


Saiact  one  nombar  CO-33  — — >  ■ 


Figure  7       Nurse's  Station  Selection  Screen 


Patiant    Selection    ••  Uard      2E       Surgical 


Data      Tima 


»•-  Select  Patient  •« 


Kn  BED 

13  1  A 

23  1  B 

33  2  A 

^3  2  B 

53  3  A 

53  3  B 


PATIENT 


03  Sign-Off 


'3  nastar  Screen 


Current  user : 


Select  one  numoer  CO-7  3  -— ->  • 


Figure  B      Patient  Selection  Screen 
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Patients'  names,  listed  in  the  patient  information 
database,  appear  in  their  ujard ,  room  and  bed  assignments. 
Ualid  options  include:  sign-off,  return  to  mam  branching 
module,  and  selection  of  a  patient  assigned  to  an  occupied 
bed. 

A  patient  selection  advances  the  physician  to  the 
doctor's  branching  module  CFigure  93. 


uiord    Room    Bed 


Pationt 


Reg    tt 


Date 


Time 


DOCTOR'S   nPSTER    SCREEN 


0]  Sign-Off 


13  Order  Entry 

2D  Admit  /  Transfer  /  Discharge  Patient 

3D  Review  Hadlcal  Orders 

4D  Print  Hedlcal  Orders 

53  Discontinue  An  Order 

6  3  naster  Screen 


Current  User: 


Select  one  number  CO-53  — ->  ■ 


Figure  9       Doctor's  Master  Screen 
The  doctor's  menu  provides  options  for  deciding  on  the 
next  activity.   With  the  exception  of  output  forms  Ci.e. 
revieu  of  the  doctor  orders  on  screen  or  printed],  any 
selection  results  in  menu  modules  for  doctor's  orders 
CFigure  10] .   Many  orders  request  additional  order 
information  moving  the  program  to  a  time/frequency  module. 
The  doctor's  order  luith  the  frequency  determines  a 
qualifier  and  value  listing  m  the  patient's  order 
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Figure  10      Ward  Routine  Screen 
database.   Qualifier  and  value  information  transfers  to  the 
expert  system.   In  addition,  a  patient  point  value  appears 
in  the  patient  order  database.   This  number  provides  the 
option  of  dBase  III  calculating  its  own  internal  patient 
classification  level.   [See  Appendix  G.] 

D.   NURSING  CARE  PLAN  AND  PATIENT  CLASSIFICATION  FUNCTION 

At  the  main  branching  module,  the  nursing  option 
advances  the  program  to  the  nursing  ujard  selection  module 
CFigure  G,7D.   This  module,  and  the  patient  selection 
modules  are  identical  to  those  presented  to  the  physician. 
The  program  sets  an  internal  flag  to  indicate  the  access 
level  of  the  user.   After  patient  selection,  the  nurse 
automatically  tracks  to  the  nursing  branching  module 
[Figure  11 ] . 
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Ward  Room  Bed       Patient 


Reg  # 


Date      Time 


•••  NURSING  HASTER  SCREEN  ••• 


13  Enter/ Inactivate  Nuraing  Care  Plan     53  Rbvibw  Patient  Care  Requirements 


23  Revieiu  Nuraing  Care  Plan 


33  Print  Nuraing  Care  Plan 


43  External  Patient  Claaalf Icatlon 


53  Print  Patient  Care  Requirement: 


73  Internal  Patient  Ciaaalf Icatlon 


03  Sign-OfF 

83  naster  Screen 

Current  Uaer: 

Select  one  number  CO-83  — ->  ■ 

Figure  11      Nursing  Master  Screen 
The  nurse  branching  module  provides  a  menu  for 

diractian  far  the  user  to  prncBsd .   Dptinns  include  the 
salBctinn  nF  n  neuj  nursing  cars  plan,  mndifying  an  sxisting 
care  plan,  reviewing  or  printing  patient  care  requirements 
Cconsisting  of  all  active  patient  orders],  revietuing  or 
printing  the  nursing  care  plan  information,  and  determining 
the  patient  classification  system. 

After  the  nursing  care  plan  option  selection,  the 
program  advances  to  a  module  alloiuing  for  a  new  care  plan 
entry  or  a  modification  of  an  existing  care  plan.   The 
choice  of  a  neiu  nursing  care  plan  provides  the  option  of 
the  four  selected  care  plans  CFigure  123. 

All  patients  require  a  minimum  of  one  care  plan  Cself- 
care  deficit],   All  diagnoses,  assessments,  goals  and 
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nursing  generatBd  orders  enter  into  a  nursing  cnre  database 
[Figure  13D .   In  addition  to  the  nursing  care  database, 
nurse  generated  orders  are  also  placed  in  the  patient  order 
database  for  inclusion  in  the  calculation  of  the  patient 
classification.   CSee  Appendix  F  for  additional  screens . 3 
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Figure  IE 
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Current  User ; 
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Figure  13 


Nursing  Order  Screen 
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If  the  option  selected  inactivates  a  portion  of  the 
nursing  care  plan,  the  user  moves  to  a  module  for  review  of 
existing  care  plan  entries.   If  on  entry  is  inactivated, 
the  program  purges  all  portions  related  to  that  specific 
entry  including  the  order  in  the  patient  order  database. 

The  selection  to  review  or  print  the  patient  care 
requirements  consists  of  all  active  patient  orders.   Active 
orders  consist  of  previously  selected  orders,  and  those 
orders  selected  for  a  specific  frequency  Ci.e.  x  E3  on  the 
date  of  their  selection.   The  same  criteria  applies  when 
determining  patient  classification  CFigure  14D. 

Press  —  Ctrl  and  S  —  Keys  To  Pause  The  Scrolling  If  Necessarg 
Page  No .      1 
01/12/B6 


Data 


Timt 


Order 


Frequency     Practitioner 


01/11/B6 

10 

05 

20 

Teach  ftlt  Copi 

ng  Strategies 

G. 

Harmeyer 

RN 

01/11/86 

12 

08 

07 

Assist  Bed  To 

iJheeichair 

Tin 

N. 

Lyons  HD 

01/11/85 

13 

10 

15 

Self /ninlmum  C 

are 

G. 

Harmeyer 

RN 

01/11/86 

13. 

10 

53 

Keep  Commode  C! 

Bedside 

Tin 

G. 

Harmeyer 

RN 

01/11/86 

14 

13 

47 

Up  in  Chair  w/ 

Assist 

TID 

N. 

Lyons  MD 

01/11/85 

14. 

14 

23 

Diabetic  Diet 

N. 

Lyons  flD 

01/12/86 

10 

17 

14 

Cloride 

Daily 

e 

0500 

T. 

Bui 

HD 

01/12/86 

10 

17 

40 

Sodium 

T. 

Bui 

no 

01/12/85 

10 

18 

00 

Amylase 

T. 

Bui 

no 

01/12/85 

10 

18 

25 

Potassium 

Daily 

a 

0500 

T. 

Bui 

no 

01/12/86 

10 

18 

55 

CD2 

Daily 

a 

0600 

T. 

Bui 

no 

01/12/85 

10 

19 

25 

CBC 

Daily 

a 

0600 

T. 

Bui 

no 

01/12/85 

10 

19 

54 

Platlots 

Daily 

a 

0600 

T. 

Bui 

no 

01/12/86 

10 

20 

18 

Glucose 

Daily 

a 

0600 

T. 

Bui 

no 

01/12/85 

10 

22 

02 

Intake  &  Output 

TID 

T. 

Bui 

no 

Figure  14       Patient  Requirement  Screen 
The  nurse  can  also  select  to  review  only  the  nursing  care 
plan  portion  of  the  patient  record.   This  enables  review  of 
the  nursing  care  plan  to  determine  if  modifications  or 
updating  is  necessary. 
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Two  options  for  determining  patient  classification 
exist.   The  first  option  keeps  the  user  in  the  current 
program,  and  generates  a  number  with  a  corresponding 
patient  classification  level  CFigure  153 . 


Patient:  nary  niser 

l3  In:  Category  II 

Point  UaiuB  Is:  27 


Figure  15      Patient  Classification  Screen 
Each  order  receives  a  point  value  based  upon  the  order 
selected  and  the  frequency  for  that  order.   Then  dBase  III 
sums  these  points  and  assigns  a  patient  classification 
level  .   The  program  does  not  explain  houi  this  number  uas 
calculated.   A  less  user-friendly  method  results  uhen 
selecting  the  second  option — that  of  external  calculation 
of  the  patient  classification.   The  user  exits  the  dBase 
program,  changes  floppy  disks,  and  runs  Exsys.   The  patient 
point  value  and  level  uould  not  change,  but  the  expert 
system  program  displays  rules  used  to  derive  the 
classification  level . 
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E.   INFDRnATION  SYSTEM 

The  information  system  section  of  the  program  is  a 
parallel  development  of  the  admission's  department.   User's 
of  the  program  must  have  the  appropriate  access  level  to 
advance  beyond  the  main  branching  module  [Figure  3D.   The 
program  limits  transactions  to  adding  another  user  to  the 
system  or  deleting  a  current  user  [Figures  IB,  173. 


•••  SELECT  ADD  /  DELETE  A  USER  ••• 


1]   Add  A  User 


2]   Dalata  A  usar 


OD   Sion-Off 


Currant  User: 


Salect  ona  number  CO-23  -— > 


Figure  16      Add  /  Delete  A  User  Screen 
F.   PROGRAM  TESTING 

Testing  is  an  aspect  of  the  programming  stage.   Testing 
criteria  are  three-fold.   First,  procedural  testing  of 
separate  modules  [white-box  testing]  takes  place  as  modules 
are  completed.   Next,  integration  testing  assures  modular 
interfaces  are  smooth  from  one  program  to  another  [black- 
box  testing].   Finally,  independent  use  by  a  third  party 
tests  the  program  in  a  simulation  performance.   Where 
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testing  uncovered  mistakes,  program  modifications  correct 
the  errors . 


USER  INFORnflTIDN 
•••  THIS  INrORHATION  IS  CONFIDENTIAL  ••• 
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Figure  17      User  Information  Screen 
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UI  .  iriPLICf=^TIQN5  FDR  FUTURE  STUDIES 

Creating  a  hospital  information  system  model  is  a  time- 
consuming  methodical  process.   A  program  using  nursing 
diagnosis  to  drive  nursing  care  plans  produces  a  logical 
product.   The  major  implications  of  this  program  center  on 
the  automation  of  the  patient  classification  system. 

Tying  critical  indicators  to  patient  orders  is  an 
arduous  task  that  required  many  iterations.   The  program 
makes  assumptions  about  orders.   This  program  assumes  the 
physician  knoius  the  difference  between  a  simple  and  complex 
dressing  change  Csee  Figure  10] .   The  distinction  between  a 
15  minute  dressing  change  and  30  minute  dressing  change  can 
be  very  subjective.   Frequency  of  patient  orders  relates  to 
almost  all  the  critical  indicators.   This  program  separates 
the  time/frequency  options  into  prn  Cas  necessary],  once  a 
day,  twice  a  day,  3,  4,  B,  12  and  24  times  a  day.   The 
latter  seven  options  divide  further  into  recurring  orders 
Ci.e.  twice  a  day]  verses  nonrecurring  orders  Cx  12]. 
Recurring  orders  continually  count  toward  the  patient 
classification  level  until  discontinued.   The  nonrecurring 
orders  count  only  on  the  day  ordered.   Nurses  calculate 
classification  levels  daily  at  1400.   tlany  nonrecurring 
orders  are  completed  by  that  time  and  should  not  be 
calculated.   The  program  counts  these  orders. 
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Duplicate  arders  result  in  duplicate  point 
calculations.   For  example,  if  a  doctor  and  a  nurse  each 
order  passive  range  of  motion  exercises  for  a  patient  TID, 
the  patient  point  total  would  be  B  vice  the  correct  total 
of  4.   The  program  tallies  E   points  for  isolation 
precautions  regardless  of  the  number  of  gown  and  glove 
changes.   The  correct  assignment  gives  E  points  for  every 
eight  gouin  and  glove  changes. 

In  the  current  manual  system,  doctors  and  nurses  assume 
that  neuj  orders  supersede  previous  orders.   If  doctors  and 
nurses  hold  to  that  assumption,  this  program  produces 
inaccurate  results.   For  example,  if  a  patient's  condition 
improves,  the  doctor  writes  an  order  for  vital  signs  a4h 
Cujith  a  patient  point  value  of  23  without  deleting  the 
original  order  of  vital  signs  Q2h  Cpatient  point  value  of 
43 .   The  program  totals  vital  signs  points  as  6  instead  of 
E. 

Some  critical  indicators  do  not  readily  convert  to  a 
patient  point  value.   The  program  accommodates  for  three  of 
these  critical  indicator  exceptions.   The  critical 
indicator  for  apnea  monitor,  temperature  monitor,  etc.  is 
not  additive  and  as  such  translates  indirectly  from  patient 
orders.   The  critical  indicator  for  specific  gravity, 
Guiac,  etc.  is  additive  across  orders  resulting  in  a  point 
total  assignment.   The  classification  listing  limits 
emotional  support  to  a  maximum  total  point  value  of  10. 


L^l^ 


Assigning  a  patient  point  value  to  these  patient  orders 
requires  an  intermediate  variable.   The  calculation  occurs 
First  for  the  intermediate  variable.   This  amount  then 
feeds  into  the  sum  of  other  patient  point  values. 

Medication  and  laboratory  critical  indicators  presented 
difficulty  in  program  translation.   The  program  assigns 
points  for  medication  and  laboratory  samples  on  a  per  order 
basis  rather  than  on  a  per  trip  basis.   The  intended 
critical  indicator  for  both  factors  assesses  points  on  a  per 

trip  basis.   The  nurse  actually  dalivars  all  the  msdicatinns 
far  a  specific  time  in  one  trip.   The  nurse  draws  numerous 
lab  tests  with  one  venipuncture.   The  program  calculates 
point  values  based  on  individual  medication  or  laboratory 
test  order.   Aggregating  nonintravenous  medications  and 
laboratory  tests  into  time  groups  would  provide  accurate 
results.   However,  the  effort  required  to  program  in  time 
groups  was  counterproductive  for  this  project. 

The  program  overlooks  patient  situations  requiring  more 
than  one  staff  member.    Currently,  all  critical  indicators 
except  turning  frame,  which  explicitly  includes  two  staff 
members,  calculate  on  a  one  staff  member  per  patient  basis. 

To  accommodate  for  patient  orders  not  currently  listed 
on  the  nursing  order  screen,  an  "other  orders"  option 
exists  Csee  Figure  13D .   The  option  allows  any  nursing 
order  entry.   Entries  in  this  category  result  in  no  patient 
points  awarded  to  those  orders.   Despite  their  critical 
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indicDtar  value,  the  pragram  lacks  the  rsfinsmant  necBSsary 
to  assign  a  value  to  this  order. 

Many  of  the  areas  addressed  can  be  corrected  by  going 
into  the  expert  system's  interactive  mode.   In  this  mode 
the  program  calculates  entries  in  a  more  thorough  manner. 
The  trade-off  for  accuracy  is  user  subjectivity  in 
selecting  applicable  critical  indicators.   Another 
trade-off  is  the  time  required  to  traverse  05  qualifiers  in 
a  real  time  setting. 
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UII  .  CDNCLU5I0N 

Automated  systems  exists  that  combine  nursing  diagnoses 
with  the  nursing  care  planning  function.   No  automated 
system  on  the  market  integrates  nursing  diagnoses,  nursing 
care  plans  and  patient  classification.   The  Navy  Nurse 
Corps  has  a  sophisticated  patient  classification  tool .   The 
tool  lists  critical  indicators  uhich  adapt  readily  to 
automation  to  produce  a  classification  level . 

This  thesis  project  is  a  programming  effort  producing  a 
prototype  software  product  marrying  three  nursing 
activities — nursing  diagnosis,  nursing  care  plans,  and 
patient  classification.   This  project  dsmanstrates  ana 
possibility  for  integrating  the  nursing  cara  plan  using 
nursing  diagnosis  and  the  Navy  Nurse  Corps'  patient 
classification  system.   The  program  extracts  points  for 
critical  indicators  from  patient  orders. 

The  greatest  incentive  for  marrying  nursing  diagnosis, 
nursing  care  planning  and  patient  classification  is  to 
improve  patient  care.   Improved  patient  care  results  from 
precise  documentation  and  uniform  staffing.   Nurses 
acknowledge  the  need  to  document  plans  of  care  to  serve  as 
a  guide  for  all  staff  members.   Nursing  is  a  seven  day  a 
week,  24  hour  a  day  profession.   Care  plans  provide  a 
consistent,  comprehensive  method  for  delivery  of  patient 
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care.   Uithout  this  plan  of  care,  valuable  nursing  time 
disappears  uhile  continually  redefining  basic  patient  care 
requirements.   Successfully  implemented  automated  systems 
have  improved  documentation  by  making  it  easier,  less 
time-consuming,  and  more  user  gratifying. 

Patient  care  is  also  enhanced  through  better  staffing 
of  nursing  units.   Staffing  levels  relate  directly  to 
patient  care  requirements  determined  by  patient 
classification.   The  program  automates  the  patient 
classification  process  to  calculate  an  accurate  and 
objective  measure  of  patient  care  requirements.   Staffing 
to  a  level  that  can  be  objectively  quantified  is  a  goal. 
Such  a  level  assures  nursing  administrators  their  scarce 
nursing  resources  are  properly  utilized  while  at  the  same 
time  providing  staffing  levels  in  keeping  with  safe 
standards  of  care . 
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APPENDIX  f=i 
DATA  DICTIONARY 


CLocal  looping  variables  omitted] 


Module: 

Uariable  Name: 

Aliases: 

Format  OF  Data: 

Allocable  Ualue: 

Files  Uariable  Used 

Comment: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allouiable  Ualue: 

Files  Uariable  Used 

Comments: 


Module: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 

Comments: 


Module: 

Uariable  Name: 
Aliases: 


Intro .Prg 

Flash 

None 

Character 

ChrC145D 

All  modules 

Flash  Code  specified  variable,  use 

in  conjunction  to  displaying 

screens . 

Ualid.Prg 

Xusepass 

None 

Character 

String  of  5  characters 

Ualid.Prg 

A  concatenation  of  Xusepasl  through 
XusepasS  Csingle  characters]  to 
form  the  individual's  password 
entry.   Xusepass  is  compared  uiith 
those  in  the  Usemfo.Dbf  to  deter- 
if  the  entry  received  is  a  valid 
password . 

Ualid.Prg 

Curuser 

None 

Characters 

String  of  up  to  23  characters 

All  modules  except  Intro,  Pt_Info  and 

Useinfo 

A  concatenation  of  Ufinitial  and  trim 
Ulname.   Is  displayed  on  the  screen 
based  on  password  entered  and  name 
associated  with  that  password  in  the 
Useinfo. Dbf.   Curuser  is  also  entered 
as  the  practitioner  or  nurse  in  the 
Orders. Dbf  or  Ncaredb.Dbf. 

Ualid .Prg 

Useacc 

None 
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Format  Of  Data: 
Alloujable  Ualue: 
Files  Uariabla  Used: 
Comments: 


Module: 

Uariabla  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


nodule: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used 

Comments: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used; 

Comments: 

Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used: 

Comments: 


Numeric 

0-4 

Master .Prg 

When  a  new  user  is  entered  into  the 
system  an  access  level  is  assign. 
This  access  level  allows  for  privacy 
and  security  in  the  program. 

Master .Prg 

Omodule 

None 

Character 

D  or  N 

UJardE   and   Uard3.Prg 

Serves  as  a  flag  when  exiting  the 

UlardE   or   Uard3.Prg    indicating 

which  module  called,  those 

pertaining  to  the  physician  staff 

or  the  nursing  staff. 

Pt_Info.Prg 

Xplname 

Xdclname , Plname 

Character 

EO  characters  for  patient's  last  name 

All  files  except  Intro,  Ualid,  Master, 

Ward  and  Useinfo.Prg. 
Used  in  the  Pt_Info.Dbf  and  .Prg. 

Called   by    UardS   and   UJard3.Prg. 

Pt_ Info. Prg 

Xpfname 

Xdcf name , Pf name 

Character 

12  characters  for  patient's  first  name 

See  discription  above  for  Xplname. 

See  discription  above  for  Xplname. 

Pt_Infa.Prg 
Xpmname 

Xdcmname, Pmnama 
Character 

Up  to  3  character  string. 
Pt_Info  and  Discharg . Prg . 
Represents  the  patient's  middle 
initials. 


Module: 

Uariable 

Aliases: 


Name: 


Pt_Info.Prg 

Xfmpssan 

Xdcf ssn , Fmpssan , Ptf mpssn ,  Mptf mpssn 
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Format  Of  Data: 
AllouiablB  UaluB: 

Files  UariablB  Used 
Comments: 


and  Xptlfmpsss. . .Xpl2Fmpssn 

CUIardE/Uard3.PrgD 
Character 
2  digit  numeric  code,  a  "-",  then 

social  security  number. 
See  discription  above  for  Xplname. 
See  discription  above  for  Xplname. 
'  The  unique  identifier  for  each 

patient.   Uariables  with  an  "Xpf 

prefix  indicate  they  are  luard, 

room  and  bed  dependent . 


Module: 

Uariable 

Aliases: 


Name: 


Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used 
Comments: 


Pt_Info.Prg 

Xpregno 

Pregno, Ptregno  and  Xptlregno... 
XptlEregno  CUJarda/Ward3  .PrgD 

Character 

Numeric  B  digit  number 

See  discription  above  for  Xplname. 

See  discription  above  for  Xplname. 
Represents  the  hospital  registra- 
tion number.   Uariables  with  an  "X" 
prefix  indicates  they  are  uiard,  room 
and  bed  dependent . 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Alloiuable   Ualue: 

Files  Uariable  Used 

Comments: 


Pt_Info.Prg 

Xpphy 

Xdcpphy ,  Pphy  and  Xdcprac 

Character 

Up  to  24  characters 

Pt_Info  and  Discharg.Prg 

Represents  the  patient's  physician 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Alloujable   Ualue: 

Files  Uariable  Used 

Comments: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allouiable   Ualue: 

Files  Uariable  Used 

Comments: 


Pt_Info.Prg 
Xpuiord 
Puard 
Character 
"2E"  or  "3E" 

See  discription  above  for  Xplname 

See  discription  above  for  Xplname 

Represents  a  ward  assignment. 

Pt_Info.Prg 
Xprm 
Prm 

Character 
"1", "2"  or  "3" 

See  discription  above  for  Xplname 

See  discription  above  for  Xplname 

Represents  rooms  on  the  ward . 
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nodule: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Allouioble  UaluB: 
Files  Uariable  Used 
Commsnts : 


Pt.InFo 
Xpbed 
Pbed 

Character 
"A"  or  "B" 

See  discription  above  for  Xplname. 
See  discription  above  For  Xplname. 
Represents  beds  in  a  room. 


Module : 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allouiable  Ualue: 

Files  Uariable  Used 

Comments: 


Hodule:. 
Uariable  Name: 
Aliases: 
Format  Of  Data: 
Allocable  Ualue: 
Files  Uariable  Used 

Comments: 


Discharg .Prg 
Xppack 
None 
Logical 
.T.  or  .F. 
Discharg .Prg 
Flag  to  indicate  if  a 

discharged.   If  .T. 

discharged  patient's  database 

purged. 


patient  had  been 
Pt_Info.Dbf  has 


Uard .Prg 

Ourpt 

Xptl...Xptia    CUJardS/Uarda.PrgD 

Character 

Xpfname  ■♦-  Xplname 

All  modules  except  Intro,  Ualid, 

Pt_Info,  Useinfo,  flaster  and  Uard. 

Signifies  uhich  patient  from  the 

Pt_Info.Dbf  has  been  selected  by  the 
user.   The  variables  with  an  "X" 
prefix  indicates  they  are  uard,  room 
and  bed  dependent . 


Module: 

Uariable  Name: 
Aliases : 
Format  Of  Data: 
Allouiable  Ualue: 

Files  Uariable  Used 


Comments: 


bJard  .Prg 

Ofreq 

Xdcf req ,  Nf req 

Character 

Blank,  options  in  Time. Prg  or  options 

in  lUC.Prg. 
All  order  modules  CTransfer,  Activity, 
lUA,  Lab,  Monitor,  Phaml,  PhamS ,  Xray , 

Xray ,  Diet,  Lung,  Routine,  US  and 

all  Norder*.PrgD 
Indicates  frequency  of  any  ordered 

action . 


Module: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 


Ward .Prg 
Passdata 
None 
Character 


5^ 


^llomabie  Ualue: 


"Q"  number  space  number 


Files  Uariable  Used:  All  order  modules  Csee  Dfreq] 

Comments:  Used  to  pass  data  to  the  external 

expert  system.  Indicates  qualifier 

and  value  to  be  used. 


Module : 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allouable  Ualue: 

Files  Uariable  Used 

Comments: 


Uard .Prg 

Ptpoint 

Xpoints 

Numeric 

Positive  integers  >-  0 

All  order  modules  Csee  OfreqD 

Assigns  points  to  orders  selected  by 
user  to  be  used  in  determining  the 
patient  classification  system. 


Module: 

Uariable  Name: 
Aliases : 
Format  Of  Data: 
Alloiuable  Ualue: 
Files  Uariable  Used 
Comments: 


Uard .Prg 
Todayonly 
None 
Logical 
.T.  or  .F. 

All  order  modules  Csee  OfreqD 
Assigns  a  .T.  for  orders  of  one  day 

frequency  for  the  patient 

classification  system. 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


Uiard  .  Prg 

Monpoint 

Xmonpt 

Numeric 

Integers  0  or  6 

All  order  modules  Csee  Ofreq] 

Used  to  evaluate  orders  in  the  Monitor 
.Prg  but  included  in  the  Orders. Dbf 
to  determine  patient  classification. 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Alloujable   Ualue: 

Files  Uariable  Used 

Comments: 


Uard .Prg 

Emopoint 

Xemopt 

Numeric 

Positive  integers  >"  0 

All  order  modules  Csee  Ofreq] 

Used  to  evaluate  orders  in  the  Emosup 
.Prg  but  included  in  the  Orders. Dbf 
to  determine  patient  classification 


Module: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 


Ward .Prg 
Roupoint 
Xroupt 
Numeric 


55 


AllouiablB  Ualue: 
Files  UariablB  Used 
Comments: 


Module : 

Uarioble  Name: 
Aliases: 
Format  Df  Data: 
Alloujable  Ualue: 
Files  Uariable  Used 

Comments: 


Positive  integers  >-  0 
All  order  modules  Csee  OFreq] 
Used  to  evaluate  orders  in  the  Routine 
.Prg  but  included  in  the  Orders. Dbf 
to  determine  patient  classification. 

Uard . Prg 

Ptselect 

None 

Character 

Prm  +  Pbed  +  CXptl  or  XptE  . . .  XptlBD 

All  modules  except  Intro,  Ualid, 

Pt_InFo,  Useinfo  and  Master. 
Signifies  uihich  patient,  the  room  and 

bed  for  screen  headers . 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


Ward . Prg 
Morder 

Order,  Xdcorder,  Nord 
Character 

Character  string  up  to  S7 
All  order  modules  Csee  OfreqD 
Patient  orders  requiring  action  on  the 
part  of  the  hospital  staff. 


Module : 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Alloujoble  Ualue: 
Files  Uariable  Used 

Comments: 


Module: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 

Comments: 

Module: 

Uariable  Name: 
Aliases : 
Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 


Doctor .Prg 

Dmenu 

None 

Character 

"1"  or  "  " 

Doctor,  Doc_Menu  and  all  order 

modules  Cexc.  Norder* .PrgD . 
Flag  to  indicate  if  a  return  is  to  the 

Master. Prg  module  or  to  a  doctor 

level  module. 
Time .Prg 
Timeopt 
None 
Numeric 
1-41 
All  order  modules  Csee  OfreqD  except 

Transfer .Prg 
Used  to  determine  frequency  of  order. 

Time .Prg 

Xtimetime 

None 

Character 

Character  string  of  4 

Time .Prg 
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Glioses: 
Format  Of  Data: 
f=)lloujable  Ualue: 
Files  Uariable  Used 
Comments: 


Module: 

Uariable  Name: 

f=)liases: 

Format  OF  Data: 

Allowable  Ualue: 

Files  Uariable  Used: 

Comments: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allouable  Ualue: 

Files  Uariable  Used 

Comments: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


None 

Character 

Character  string  of  19 

Emosup  and  Teach. Prg 

RecievBS  input  for  Ncaredb.Dbf  related 
to  the  teaching  and  emotional 
requirements  of  the  patient. 

N_Diag.Prg 

Nrelate 

None 

Character 

Character  string  of  B5 

Relate.l. . .Relate_4 . Prg 

Recieves  input  for  Ncaredb.Dbf  related 

to  why  the  patient  has  the  nursing 

diagnosis  chosen. 

N_Diag.Prg 
Ngool 
None 

Character 

Character  string  38 
Goal_l . . . Goal _4. Prg 

Recieves  input  for  Ncaredb.Dbf  related 
to  goal  achieveable  by  the  patient. 

N_Diag.Prg 

Nassess 

None 

Character 

Character  string  of  S7 

AssBss_l . . . Assess_4 .Prg 

Recieves  input  for  Ncaredb.Dbf 

relating  abjective  observations  and 
subjective  information  to  the  nur- 
sing diagnosis  selected. 

N_Diag.Prg 

Assoth 

None 

Character 

Character  string  of  27 

Assess_l . . . Assess_4 . Prg 

Allows  an  assessment  of  the  patient 

not  currently  provided  on  the 

screen  to  be  entered . 


Module: 
Uariable  Name 


N_Diag.Prg 
Reloth 
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Comments: 


Provides  an  option  for  a  time  oF  day 
that  is  not  provided  on  the  screen 


Module : 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Alloiuable  Ualue 


Files  Uariable  Used: 
Comments: 


lUA.Prg 
riorderl 
None 

Character 
"Start  lU  of" 
"Alternate  lU  uj/" 
"Follow  lU  ui/" 
"Interrupt  lU  for" 
"Start  2nd  lU  of" 
lUA  and  lUB.Prg 

Initial  portion  of  the  patient  order 
for  lU  therapy. 


Module! 

Uariable  Name: 

Aliases: 

Format  Df  Data: 

Alloiuahle   Ualue: 

Files  Uariable  Used 

Comments: 


lUB.Prg 
Blood 
Nona 
Logical 
.T.  or  .F. 
lUB  and  lUC.Prg 
Flag  to  indicate  whether  blood  was 

ordered  or  not.   Significant  in  the 

determining  of  patient 

classification  points. 


Module: 

Uariable  Name: 
Aliases: 
Format  Df  Data: 
Allowable  Ualue: 


Files  Uariable  Used 
Comments: 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


Lung.Prg 

Xliter 

None 

Character 

"0  1-2  1/m" 

"S  3-4  1/m" 

"e  5-6  1/m" 

"0  7-B  1/m" 

"0  9-10  1/m" 

Lung.Prg 

Xliter  is  concatenated  with  the  screen 

selection  to  indicate  oxygen  flow 

rate  for  the  patient. 

Discont .Prg 

Xdcdate 

Odate 

Date 

Date  of  the  medical  order 

Discont .Prg 

Allows  user  to  review  date  of  an  order 

to  determine  if  medical  order  should 

be  discontinued. 
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Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  UariablB  Used 

Comments: 


Discont .Prg 

Xordpack 

None 

Logical 

.T.  or  .F. 

Discont .Prg 

Flag  to  indicate  if  medical  orders  are 

to  be  discontinued.   If  .T.,  deleted 

orders  are  purged  from  the 

Orders. Dbf . 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Alloujable   Ualue: 

Files  Uariable  Used: 

Comments: 


Nurse .Prg 

Nmenu 

None 

Character 

"1"  or  "  " 

Nurse,  Nursel,  and  N_Diag.Prg 

Flag  to  indicate  if  a  return  is  to  the 

Master . Prg  module  or  to  Nurse. Prg 

module . 


Module: 

Nurse. Prg 

Uariable  Name: 

Xlevel 

Aliases: 

None 

Format  Of  Data: 

Character 

Allowable  Ualue: 

"Category 

I" 

"Category 

II" 

"Category 

III" 

"Category 

lU" 

"Category 

U" 

"Category 

UI" 

Files  Uariable  Used: 

Nurse. Prg 

Comments: 

Indicates 
level . 

patient 

classification 


Module: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Alloujoble  Ualue: 


Files  Uariable  Used 
Comments: 


Module: 
Uariable  Name; 


N_Diag.Prg 

Nursdiag 

None 

Character 

"Comfort,  Alteration  In:  Pain" 

"Communication,  Impaired:  Uerbal" 

"Impaired  Physical  Mobility" 

"Self-Care  Deficit" 

N_Diag .Prg 

Nursdiag  is  of  the  four  values 

indicated,  and  directs  which  branch 

the  program  will  follow. 

N.Diag 
Emoteach 
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Aliases: 
Format  OF  Data: 
Allawable  Ualue: 
Files  Uariable  Used 
Comments: 


None 

Character 

Character  string  of  S5 

Relate_l . . .Relate_4 . Prg 

Allows  a  related  factor  not  currently 

provided  on  the  screen  to  be 

entered . 


Nodule: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


N_Diag.Prg 

Goaoth 

None 

Character 

Character  string  38 

6oal_l .  .  .Goal_4.Prg 

Allows  a  patient's  goal  not  currently 

provided  on  the  screen  to  be 

entered . 


Module: 

Uariable  Name: 

Aliases: 

Format  Of  Data: 

Allowable  Ualue: 

Files  Uariable  Used 

Comments: 


N_Diag .Prg 

Drdoth 

None 

Character 

Character  string  E7 

Norder* .Prg 

Allows  for  a  nursing  order  not  cur- 
rently provided  on  the  screen  to  be 
entered . 


Module: 

Uariable  Name: 
Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used 


Useinfo 

Xufinitial 

Character 

Any  first  initial  of  user 

All  modules  [except  Intro  and  Ualid3  as  a 

concatenation  with  Xulname. 


Module: 

Uariable  Name: 
Aliases: 
Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used 

Comment: 


Useinfo .Prg 

Xulname 

Xdlulname 

Character 

Character  string  of  length  EG 

All  modules  Cexcept  Intro  and  Ualidl 

as  a  concatenation  with  Xufinitial. 
Character  string  representing  the 

user's  last  name.   Used  as  a  concat- 

tenation  with  Xufinitial  to  form 

Curuser . 


Module : 

Uariable  Name: 
Format  Of  Data 


Useinfo 

Xcodeword 

Character 
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Alloujable  Ualue:      Any  5  characters  representing  a  user's 

passiuord 
Files  Uariable  Used:  Ualid.Prg 

Module:  Useinfo 

Uariable  Name:  Xaccess 

Format  Of  Data:  Numeric 

AlloiuablB  UaluB:  0,  1,  E,  3,  or  4 

Files  Uariable  Used:  Master . Prg 
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APPENDIX  B 


STRUCTURE  CHART 
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Legend  For  Structure  Chart 


*  —  Box  labelled  1 

Box  Description:  Do  Introduction/Ualidate  User 

*  —  Box  labelled  S 

Box  Description:  Choose  Path 

*  —  Box  labelled  3 

Box  Description:  Do  Admission  Department 

*  —  Box  labelled  3.1 

Box  Description:  Admit  Patient 

*  ~  Box  labelled  3.E 

Box  Description:  Discharge  Patient 

*  —  Box  labelled  4/5 

Box  Description:  Select  Ward 

*  ~  Box  labelled  4.1/5.1 

Box  Description:  Select  Patient 

*  —  Box  labelled  4.1.1 

Box  Description:  Select  Doctor  Option 

*  —  Box  labelled  4.1.1.1 

Box  Description:  Select  Medical  Orders 

*  —  Box  labelled  4.1.1.E 

Box  Description:  Discontinue  Order 

*  —  Box  labelled  4.1.1.3 

Box  Description:  Admit/Transfer/Discharge  Patient 

*  —  Box  labelled  4.1.1.4 

Box  Description:  Print/Review  Orders 

*  ~  Box  labelled  5.1.1 

Box  Description:  Select  Nursing  Option 

*  —  Box  labelled  5.1.1.1 

Box  Description:  Select  Nursing  Care  Plan 

*  —  Box  labelled  5.1.1.E 

Box  Description:  Review/Print  Nursing  Care  Plan 
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*  —  Box  labelled  5.1.1.3 

Box  Description:  Review/Print  Patient  Care  Requirements 

*  —  Box  labelled  5.1.1.4 

Box  Description:  Determine  Patient  Classification  Level 

*  —  Box  labelled  B 

Box  Description:  Do  Data  Processing  Department 

«  —  Box  labelled  6.1 

Box  Description:  Add  New  User 

*  —  Box  labelled  6.2 

Box  Description:  Delete  User 
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APPENDIX  C 
USER'S  MANUAL 


This  softujare  product  is  a  prototype  model  for  the  Navy 
Nurse  Corps.   The  user's  manual,  as  well  as  the  software 
product,  presupposes  a  working  knowledge  of  medicine  and 
the  normal  functioning  of  a  hospital.  The  user's  manual  and 
the  software  product  require  a  working  knowledge  of  the 
nursing  process  using  the  nursing  diagnosis  and  the  patient 
classification  system. 

This  manual  contains  four  subdivisions:   the  admission's 
department  section,  the  physician  section,  the  nursing 
section  and  the  system's  administration  section.   The 
admission's  department  section  allows  patients  to  be 
admitted  or  discharged.   Admission  of  a  patient  allows 
the  selection  of  doctor's  and  nursing  orders.   Admission  of 
a  patient  also  initiates  the  determination  of  the  patient 
classification.   The  system  administration  section  allows 
users  access  to  all  or  only  one  of  the  program  sections. 


I .   Beginning  the  Program 


To  begin  the  program  insert  disk  A:l  into  drive  A 
Cnormally  the  left  sided  drive,  or  the  top  drive]  of  your 
IBM,  or  compatible,  personal  computer.   The  computer  should 
have  640K  of  internal  memory.   Next  insert  disk  B:l  into 
drive  B.  Turn  on  the  power  for  the  monitor,  disk  drives 
Cthe  computer],  and  printer  Cfor  written  reports].   The 
first  prompt  is  for  the  date.   The  date  format  of  4-1-B6  is 
acceptable.   The  computer  also  accepts  a  date  format  of 
4-1-19B6.   Follow  this  with  <enter> .   The  next  prompt  is 
for  time.   The  format  of  14:45  is  the  least  number  of 
keystrokes,  however  the  computer  accepts  seconds  as  well 
Cie.  14:45:30]  <enter> .   An  A>  prompt  then  appears.   To 
begin  the  program,  type  b:proto  Ccapital,  mixed  or  small 
letters]  <enter> . 

A  manufacturer's  introductory  screen  appears  with  a 
prompt  of:  "Insert  System  Disk  E  and  press  ENTER  or  type 
CTL-C  to  abort".   Remove  disk  A:l  and  insert  disk  A:E  into 
drive  A  and  press  <enter>  .   Another  manufacturer's 
introductory  screen  temporarily  flashs  on  the  monitor. 
A  screen  with  a  Nurse  Corps  oakleaf  and  background 
information.  Figure  1,  replaces  this  screen. 
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A    PROTCTYPE 

PROJECT 

FOR 

THE 

NAUY  NURSE  CORPS 


BY 

GARY  R.  HARHEYER 
LCDR  NC  USN 

nARCH   138S 

NAUAL  POSTGRADUATE  SCHOOL 

nONTEREY,  CALIFORNIA 

RELEASE  1 


PRESS  ANY  KEY  T3  BEGIN 


Figure  1 


Prcgram  Passujcrds 


la    begin  the  orcgram  press  any  key  tc:  move  to  Figure  !□ 
which  rsduires  the  innut  cf  a  five  setter  Dasstuord .   Samoie 
Dossucras  far  this  program  are;  level  G  --  mouse,  level  1 
--  iyons,  level  B    --    flyup,  level  3  --  littl,  and  level  4 
--  getgo .   The  password  alious  access  Further  into  the 
program,  and  level  indicates  which  area  a  user  may  enter. 
Regardless  of  password  used  Cprovided  it  is  an  acceptable 
password,  see  System's  Administration  section]  the  next 
screen  is  Figure  E. 
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•"  Prototupo  noacor  Screen 


Dace      Tlma 


•••  Saiocc  the  Daaired  Dntion  •• 


13  Admission's  Dapartment 


2  3  Doctor's  noster 


33  Nursing  noster 


43  Sgstem  Administration 


03  sion-orr 


Current  User : 


Select  one  numcer  C0-'i3  — — >  t 


Figure  E 

This  screen,  the  Prototype  noster  Screen  provides  a 
branching  point  to  the  four  major  areas.   Depending  upon 
the  oassuiord  used  and  option  chosen,  the  program  moves  to 
Figure  3,    4,  5  or  B.   Sign-Dff  is  an  oation  given  on  most 
screens  to  return  to  Figure  1 . 


II 


f=^dmssion's  Department  Personnel 


Access  level  0  or  1  uill  allou  access  to  the 
Admit/Discharge  screen  CFigure  32 . 
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••"  SELECT  ADniT  /  DISCHftRGE  OPTION 


1]   Admit  A  Patient. 


2]   DischarQo  O  Patient 


0]  Sign-Off 


Current  User; 


Select  one  numoer  C0-2D  — ->   ■ 


Figure  3 


A  patient  can  be  admitted  or  discharged,  depending  on 
the  option  selected.   Selecting  cation  1,  moves  the  user  to 
Figure  3.1.   This  mfcrmction  creates  c  cctient  datctiase 


p  1   1 


1  le 


The  Patient  Admission  Form 


The  Patient  Admission  Form  [Figure  3.13  consists  of  17 
input  areas. 
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Patient  Admission  Form 


Lost  Noma: 

First  Namo . 

nid  Initial 

Roto/Rank  .- 

FnP-SSN . 

BirthdatB: 

Ags: 

Sex: 

Admit  Date: 


/   / 


Registration  No-, 
nadicai.  Diagnosis: 
Phusicion: 
Proonosis: 
Alieroiea : 
Nursing  word; 
Room  Numcer : 
Bed: 


Figure  3.1 

After  typing  each  category,  press  <entBr>  to  move  to  the 
next  caregcry .   The  amount  of  mf armation  and  the 
acceptai3le  inputs  ere  as  foiioujs. 


Last  Name 


First  Name 


Hid  Initial 


Rank/Rate 


FnP-5SN 


f^llous  UP  tc  EC    letters  in  t.ne  patient's  last 
name  and  automatically  capitalizes  the  first 
letter . 
Allous  up  to  IE  letters  in  the  patient's  first 
name  and  automatically  capitalizes  the  first 
letter . 
Alloujs  up  to  3  letters  In  the  patient's  middle 
name  to  accomodate  for  No  Diddle  Name  CNflND  . 
Capitalizes  all  letters  entered. 
PJccepts  up  to  11  letters  and  capitalizes  all 
letters  entered.   Typical  formats  uould  Include 
nS3/N/AD,  COL/AF/RET  or  CIUHUn. 
Family  Member  Prefix  CFnPD  Code  includes  the 
sponsor's  Social  Security  Number  CSSN3 .   Ualid  FMP 
code  numbers  and  relationships  ore: 


01 

02 

03,04,  etc 

20 


Sponsor's  oldest  child  Cincludes 
stepchildren3 

Sponsor's  next  oldest  child 
Sponsor's  third  oldest,  etc. 
Sponsor  [active  duty,  reserve  and 
retired  uniformed  services  personnel 
Army,  Navy,  Air  Force,  Marine  Corps, 
Coast  Guard,  Public  Health  Service 
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and  National  Oceanic  and  Atmospheric 
Administration] 
30  Sponsor's  spouse 

40  Sponsor's  dependent  mother 

45  Sponsor's  dependent  father 

50  Sponsor's  dependent  mother-in-law 

55  Sponsor's  dependent  f ather-in-lauj 

60,61,  etc.   Other  authorized  sponsor's  dependents 
00  All  other  authorized  personnel 

Cforeign  nationals,  including  foreign 
military,  civilian  humanitarians, 
etc  .  3 
BirthdatB:   Use  the  format  0B/E5/50. 

Age:   Allows  up  to  3  letters  or  numbers.   nixing  numbers  and 
letters  is  possible  to  accommodate  for  lin  Cll  months 
old]  or  15D  CIS  days  old].   Age  denotes  years  unless 
n  or  D  are  filling  the  third  input  space. 
Sex :   Allows  one  letter  input.   Ualid  letters  are: 
n  -  flala 
F  -  Female 
U  -  Unknown 
Admit  Date:   Use  the  format  12/13/85. 

Registration  No:   The  local  hospital  sequential  number  of 

in-patients  admitted  during  a  specified 
period  of  time, 
riedical  Diagnosis:   Diagnosis  listed  by  the  admitting 

physician  and  listed  on  the  admission 
authorization  form.   Enter  up  to  24 
letters . 
Physician:   Patient's  assigned  physician,  not 

necessarily  the  admitting  practitioner. 
Enter  up  to  24  letters. 
Prognosis:   Allows  entry  of  up  to  3  letters.   Allow- 
able prognosis  codes  and  descriptions  are: 
E      Excellent 
F      Fair 
G      Good 
U      Unknown 
GRD   Guarded 
P      Poor 
Allergies:   Patient's  allergies  as  stated  in  the 

health  record,  or  by  the  patient.  Enter  up  to  24 
letters . 
Nursing  Uard:   Two  wards  are  possible:  2E  Ca  surgical  ward] 

or  3E  Ca  medical  ward] . 
Room  Number:   Room  number  is  tentatively  assigned  by  the 

admission  department,  pending  confirmation  by 
the  ward  personnel.   Room  number  options  are  1, 
2,  or  3. 
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Bed:   Actual  bed  assignment  combines  a  room  number  and  a  bed 
letter.   Bed  letter  is  tenatively  assigned  by  the 
admission  department,  pending  confirmation  by  the  ward 
personnel.  Bed  letter  options  vary  between  A  and  B. 

Once  the  patient  file  is  complete,  the  program  returns  to 

Figure  3  for  another  selection. 


Discharging  a  Patient 


Selection  2  CFigure  33  moves  the  user  to  Figure  3.E 
CDischarge  A  Patient  Screen] .   A  patient  is  uniquely 
identified  by  listing  of  FflP-SSN .   The  screen  displays  one 
patient's  FflP-SSN,  name  and  practitioner  at  a  time  so  the 
user  can  decide  which  patient  to  discharge.   The  user  can 
discharge  more  than  one  patient  before  returning  to  the 
Admit/Discharge  Screen  CFigure  33 . 


III.   Physician  Personnel 


Figure  2  [Prototype  Master  Screen3  has  two  valid  choices 
for  the  physician,  0  CSign-0ff3  and  E  CDoctor's  naster3. 
Option  0  returns  the  physician  to  the  Introductory  Screen 
CFigure  13.   This  selection  implies  intent  to  leave  the 
computer  session. 


Selecting  a  Patient 


Selection  2  CDoctor's  naster3  advances  the  physician  to 
Figure  4  CNurse's  Station  Selection3 .   The  physician  is 
able  to  choose  patient  ward  or  return  to  the  previous  screen 
CFigure  23 . 
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Nurse's  Station  Saiactlon 


Dots      III 


Soiact  Nuraing  Unit  to  DisdIdu  Patients  ••• 


13  2E   SuroicQl  vara 


ZZ    3E   nadicoi  word 


0!)  Sipn-Off 


Current  user 


3]  naater  Screen 


Saiect  one  numoer  CO-3)  — — >  ■ 


Figure  4 


-tiert  beiecti: 


SoTSi: 


Date 


Saiect  ^Gtiar.t 


i: 

£3 


R1  BEC 
B 


PCTIENT 


3]  2 
^•\    2 

5]  3 
53  3 


03  Sign-Cfr 


73  naster  Screen 


Current  User: 


Select  one  numoer  CO-73  ---->  • 


Figure  4 . la 

Selection  1  CFigure  43  follows  with  Figure  4.1a  CPatient 
Selection  for  klard  2ED.   Patients  assigned  to  Ward  EE  by 
the  admissions  department  appear  in  their  room  and  bed 
assignments.   Choosing  any  one  of  the  six  patients  advances 
the  user  to  Figure  4.1.1,  the  Doctor's  flaster  Screen. 
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ward  Room  Bod       Patiant  K03  «•  Uqcb      Time 


•••  DOCTOR'S  n«STEr>  SCREEN  ••• 


11    Order  Encru 

25  AC»Blt  /  Iranafor  /  Discnarga  Patient 

31    Haviaw  nadlcai  Orders 

43  Print  nadicai  Oroera 

SI    Diacontinuo  «n  Order 

01    Sisn-Cff  Bj  noscer  Screen 


Current,  user 


Select    one    nurtiDer     C0-B5    — «— >     « 


Figure  4.1.1 

Uard.  room,  bed.  catient  and  registration  number  appears  on 
tne  second  line  cf  each  of  the  screens  tc  assure  prooer 
patient  laentif icction  is  oresent .   The  laentical  sequence 
folloujs  for  selection  2  CPatient  Selection  for  ujard 
3E].   Paster  Screen  is  an  cation  on  most  screens  and 
differs  slightlia  frorr.  tne  Sign-Off  option.   Sign-Qff  is  the 
aparoariate  selection  if  the  computer  session  is  over. 
Master  Screen  allows  the  user  to  select  o  different  patient 
to  enter  orders  on  without  requiring  the  physician  to  redo 
the  user  identification  process. 


Doctor  Selection  Categories 


Figure  4.1.1  CDoctor's  Master  Screen]  is  a  branching 
screen.   Selection  1  advances  the  user  to  Figure  4.1.1.1 
CDoctor's  Order  nenuD.   This  option  allows  the  physician  to 
enter  patient  orders  associated  with  medical  treatment. 
Selection  E  moves  the  user  to  Figure  4.1.1.2  Cf=^dmit/ 
Transfer/Discharge  Screen] .   These  orders  impact  the 
admission's  department  as  well  as  the  patient  care  areas. 
The  admissions  department  must  enter  the  patient  into  the 
computer  system  prior  to  their  selection  by  the  physician 
for  order  entry.   The  selection  of  ADniT  officially  enters 
the  patient  admission  status  in  the  doctor's  orders. 
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luord  Room  Bad 


Potiant 


Rb3  • 


Data 


Tiwa 


•••  DCCTOP'S  QRCER  PENJ  ••• 


1  'i  Pctivitu 

23  Diat 

3  3  IU*3  /  Blood 

MD  LoDoratory  lasts 

53  nonitcrina 


BD  Pnarmacy 

7]  Radioioou 

63  RasDirotorj  Tharopy 

S:  oitai  Sions 

1C3  word  Koutines 


C03  Sis-^-Off 


113  Doctor's  naste-  bcrsB'^ 


12  3  naste-  Scraaf 


Cwirropt    user 


-diact    ona    numoar    COO-12}    --->     ■■ 


Figure  1 


1  1 


Revieujin::  Parient  Dmsrs 


Selection  3    end  4,  cf  the  Dcctcr's  Hcstsr  Screen  very 
cnly  m  tne  iccatian  cf  their  output.   Ssiecticn  3  displays 
patient  medical  orders  on  the  monitor  screen.   Figure 
4.1.1.3,  IS  a  screen  output  to  revieu  medical  orders. 
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Patient  Qrdors  For:  nary  niser 

Press  --  Ctrl  and  S  —  Keys  to  Pause  The  Scrolling  If  Necessary 
Page  No .      1 
01/12/86 


Dote 

Time 

Order 

Frequency 

Practltloni 

01/11/86 

14 

13 

47 

Up  in  Choir  ui/ 

Assist 

TID 

N. 

Lyon 

no 

01/11/86 

14 

14 

23 

Diabetic  Diet 

N. 

Lyon 

no 

01/11/85 

14 

15 

41 

Start  lU  of  .45 

NaCl 

Infuse  o  8Hr 

N. 

Lyon 

no 

01/12/86 

10 

17 

14 

Cloride 

Daily  e  0600 

N. 

Lyon 

no 

01/12/86 

10 

17 

40 

Sodium 

N. 

Lyon 

no 

01/12/86 

10. 

18 

00 

Amylase 

N. 

Lyon 

no 

01/12/85 

10 

IB 

25 

Potassium 

Daily  9  0600 

N. 

Lyon 

no 

01/12/85 

10. 

18 

55 

C02 

Daily  (?  0600 

N. 

Lyon 

no 

01/12/86 

10. 

19 

25 

CBC 

Dally  9  0600 

N. 

Lyon 

no 

01/12/86 

10: 

19 

54 

Platleta 

Daily  9  0600 

N. 

Lyon 

no 

01/12/85 

10- 

20 

18 

Glucose 

Daily  9  0600 

N. 

Lyon 

no 

Figure  4.1.1.3 

Selection  4  crovicies  the  same  medical  order  outout  on  the 
DTinter.   Selection  5  CDiscontmue  Pn  Order]  advances  the 
Dhysician  tc  Figure  4.1.1.4.   The  scree*^  disaiays  each 
medical  order  on  the  selected  octient  Lu^^tn  the  cation  tc 
discontinue  any  odsolete  orders. 


Selecting  Doctor's  Crders 


The  Doctor's  Order  Menu  CFigure  4.1.1.1]  provides  a  menu 
to  select  a  medical  treatment  category .   A  rudimentary 
selection  list  of  medical  orders  folloujs  each  of 
the  ten  major  headings.   Selection  1  CFigure  4.1.1.1]  moves 
the  program  to  Figure  4.1.1.1a. 
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ward  Room  Bod 


Pctient 


Reg  • 


Date 


SELECT  PCTIUITY  LEUEL  •• 


ID  ftmnuiaca  ad  llQ 

5}  AmouiatB  ui/    Assistance 

3:)  Strict  BBdrast 

13  Bedrest  w/  BRP 

5?  Beasiae  Commooe 

B3  DOB  to  Strecner  w/  «9sis: 


7j  Dangie  Legs 

32  Kaeo  on  BacK 

3  3  noy  Sno*«r 

10)  Turn  Patient 

11]  Turning  Frame 

lEl  Up  in  Cnair  m/  Assist 


;is— Cf 


13:    Dctrtcr's    C'raer    Scrae-^ 


11}    naster    Screen 


Figure  4  . 1  . 1 . !□ 

Tujelve  seiection  criteria  foilou.   UJhen  entering  a 
numtjer  less  than  10,  enter  either  03  or  3  <Bnter>  to 
advance  tne  crcgram .   Same  selecticns  recuest  c  time  or 
f reauency  .   Tnese  selections  are  E,  S,  ^.  10,  11,  one  IE. 
ujhicn  move  the  crogram  to  Figure  4. 1.1.  lb  [Select 
Tirre/ Frequency  DctionD  ,   A  list  cf  33  actions  fclloui. 
Selection  40  is  c  brief  on-line  helc  facility  CFigure 
4.  1.1.1c J.   A  selection  of  41  returns  the  prograr.  to  the 
previous  screen  uiith  no  frequency  indicated  for  that  order 
Options  5,  B,  9,  24,  E3 ,  33,  35,  37  and  39  are  one  time 
selections.   All  other  options  are  ongoing  until 
discontinued . 
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ward  Room  Bed 


Potient 


Res 


Date 


Ii«e 


•••  EELECT  TinE/FRESUENCY  OPTION  ••• 


ID  PRN 

"  Doiiy  0 

2C3 

2200 

303 

0   Shift 

2]  2  1-2  Mr 

PRN 

1C3  0200 

£13 

2100 

213 

313 

33  3  2-3  Mr 

PRN 

113  ClOO 

32  3 

0  6  Mr 

1J  3  a-'l  Mr 

PRN 

123  OBOO 

22  3 

BID 

33  3 

X  H 

13  3  OBOO 

233 

0  12  Hr 

3Hi 

3  1  Mr       i 

5]  On  Call 

1^3  1000 

24  3 

X  2 

35  3 

X  5 

6  3  CD 

153  1200 

2E3 

TID 

7]  MS 

153  IMOO 

253 

AZ 

35  3 

3  2  Mr 

BD  X  : 

17  3  IBOO 

273 

PC 

37  3 

X  12 

3  3  Todoj  C» 

1B3  1800           , 

2S3 

0  9  Mr 

38  3 

3  1  Mr 

.... 

12  3  2000 

29  3 

X  3 

33  3 

X  2-* 

MC3  Moi3 


^l  )     Ratur-^  to  Calling  Scrsen 


Currant  user . 


Soioct    one    noBiDer     C01-'il3    — >     ■• 


US 


Selection  3  from  the  Doctor's  Order  Menu  CFigure 
4.1.1.1]  provides  possible  intravenous/blood  options.   The 
screen  design  vanes  from  other  medical  treatment  order 
screens,  to  accommodate  for  the  unique  characteristics  of 
this  order  line.   Select  lU  Order  CFigure  4.1.1.1eD  is  the 
first  screen  of  a  series  of  three.   Select  lU  Order  has  up 
to  10  selections.   Selections  5  through  B  are  one  time 
orders  which  then  returns  to  the  program  for  another 
selection.   Selection  1  through  5  moves  the  program  to 
Select  IV   Solution  CFigure  4. 1.1. If].   This  requires  a 
selection  from  options  1  through  B.   The  program  moves  to 
Select  Infusion  Rate  CFigure  4.1.1.1g]  for  the  user  to 
select  the  desired  fluid  infusion  rate.   Follouimg  the 
selection  of  infusion  rate,  the  program  returns  to  Select 
lU  Order  CFigure  4.1.1.1e3. 

Selection  4  from  the  Doctor's  Order  nenu  CFigure 
4.1.1.1]  displays  laboratory  test  options.   For  each 
selection  on  the  Select  Laboratory  Test  CFigure  4.1.1.1h], 
the  program  moves  to  the  Select  Time/Frequency  Option 
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CFigure  4.1.1.1b3.   Selections  are  for  additional 
information  regarding  the  order. 

Selection  5  from  the  Doctor's  Order  Menu  CFigure 
4.1.1.13  provides  possible  monitoring  options.   For  some 
selections  on  the  Select  nonitoring  Requirements  screen 
CFigure  4.1.1.11],  the  program  moves  to  the  Select 
Time/Frequency  Option  CFigure  4.1.1.1bD  for  addition 
information.   The  selections  requiring  time  or  frequency 
information  include  3,  5,  B,  7,  8,  9,  11,  12,  12,  and  15 
Other  selections  are  continuous. 


Selection  6  from  the  Doctor's  Order  flenu  CFigure 
4.1.1.1]  provides  pharmacy  options.   For  all  selections  on 
the  Select  Desired  fledication  /  Dosage  screens  CFigure 
4.1.1.1J  and  Figure  4.1.1.1k],  the  program  moves  to  the 
Select  Time/Frequency  Option  CFigure  4.1.1.1b]  for 
frequency  of  dosage.   Each  screen  contains  divisions  of 
major  drug  categories,  of  individual  drugs,  and  dosage.   A 
help  facility  follows  CFigure  4.1.1.11]  clarifing  route 
abbreviations  used  on  the  screen. 

Selection  7  from  the  Doctor's  Order  Menu  CFigure 
4.1.1.1]  provides  radiology  options.   For  all  selections  on 
the  Select  Xray  screen  CFigure  4.1.1.1m],  the  program  moves 

tn  the  SslBCt  TimB/FraquBncy  Option  CFigure  4.1.1.1b]  far 
additional  scheduling  information. 

Selection  8  from  the  Doctor's  Order  Menu  CFigure 
4.1.1.1]  provides  possible  respiratory  therapy  options. 
For  each  selection  on  the  Select  Respiratory  Therapy 
Options  screen  CFigure  4. 1.1.  In],  except  7  CUentilator  is 
continuous],  the  program  moves  to  the  Select  Time/Frequency 
Option  CFigure  4.1.1.1b].   After  selecting  a  route  Coption 
9  through  13],  a  flow  rate  Cletter  A-E]  selection  follows. 

Selection  9  from  the  Doctor's  Order  Menu  CFigure 
4.1.1.1]  provides  possible  vital  signs  options.   For  some 
selections  on  the  Select  Uital  Sign  Option  screen  CFigure 
4.I.I.I0],  the  program  moves  to  the  Select  Time/Frequency 
Option  CFigure  4.1.1.1b].   Time/Frequency  Option  screen 
provides  selections  for  additional  information  with  options 

1  and  5  through  11.   Departmental  policy  defines  select-jns 

2  through  4. 

Selection  10  from  the  Doctor's  Order  rienu  CFigure 
4.1.1.1]  provides  ward  routine  selection.   For  many 
selections  on  the  Select  UJard  Routine  screen  CFigure 
4.1.1.1p],  the  program  moves  to  the  Select  Time/Frequency 


f 
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Option  [Figure  4.1.1.1bD  for  added  information.   Selections 
advancing  the  program  to  the  Time/Frequency  screen  are:  3, 
4,  B,  B,  IB,  E0-E3,  SB  and  29.   Selections  regarded  as  one 
time  only  orders  are:  E,  5,  7,  lE-14  and  E4-E7 .   All  other 
selections  are  ongoing  until  discontinued  Cselection  1, 
9-11,  15  and  17-19],   In  the  context  of  this  software 
project,  option  4  CComplex  Drsg  Change]  is  a  dressing 
change  requiring  30  minutes  or  more  to  complete.   A 
dressing  change  requiring  less  time  is  a  simple  dressing 
change  Coption  EOD . 


lU.   Nursing  Personnel 


Figure  E  [Prototype  Master  Screen]  has  tuo  valid  choices 
for  nurses,  0  [Sign-Off]  and  3  [Nursing  Master].   Option  0 
returns  the  nurse  to  the  introductory  screen  [Figure  1]. 
Option  0  implies  intent  to  leave  the  computer  session. 


Patient  Selection 


Selection  3  [Nursing  Master]  advances  the  nurse  to 
Figure  5  [Nurse's  Station  Selection].   The  nurse  selects 
the  desired  ward  or  returns  to  the  previous  screen  [Figure 
S]  . 

Selection  1  [Figure  5]  follous  with  Figure  5.1a  [Patient 
Selection  for  Ward  EE] .   Patients  assigned  to  Ward  EE  by 
the  admission's  department  appear  in  their  room  and  bed 
assignments . 
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Nur»a's  Station  SalBCtion  •• 


Data      Til 


•••  SaiBCt  Nursing  unit  to  DiSDlcj  Patient; 


1 3  2E   SuroicQl  ward 


S'i    3£   nadicoi  word 


03  SiO"-Off 


Lurrsnt  uaer 


33    naster    Sen 


SalBCt    one    numoar    CO-33    — — > 


Figure   5 


••    Patient    Salactia-i 


lucrd       2E      Suraica^ 


Date 


Time 


•••  SaiBct  Patiarr  ••• 


p—  or '^ 

13  1  f* 

a:   1  B 

3]  ?  « 

13  e  B 

53  3  A 

B3  3  B 


pot: en: 


03  Sign-Cff 


73  PiQatBr  Scraer 


Currant  Uaar 


Soiect  one  numbar  CO-7  3  -— >  ■ 


Figure  5 . la 


Choosing  any  one  of  the  six  patients  advances  the  user  to 
Figure  5.1.1,  the  Nursing  Plaster  Screen.   Ward,  room,  bed, 
patient  and  registration  number  appear  on  the  second  line 
of  each  of  the  screens  to  assure  proper  patient 
identification.   The  identical  sequence  follows  for 
selection  2,  Patient  Selection  for  Ward  3E  CFigure  S.lbD.  ■ 
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Master  Screen  is  an  option  on  some  screens  and  differs 
slightly  from  the  Sign-Off  option.   Sign-Off  is  the 
appropriate  selection  if  the  computer  session  is  over, 
Master  Screen  allows  the  user  to  select  a  different  patient 
to  enter  a  care  plan  on  ujithout  requiring  the  nurse  to  redo 
the  user  identification  process. 


Nursing's  Category  Options 


Figure  5.1.1  [Nursing  Master  Screen]  is  a  branching 
screen . 


ward  Room  bad       Potiant  kej  •  Data      lima 

•-"  NURSING  nftSTE'  SCREEN  "•• 

ID  Enter/ InoctivQtB  Nursing  Cara  Plan     5j  Kaviaw  Patiant  Cora  kauuiraniBnta 

! 

i 
? :;  ReviBu;  Nurairn  Lara  Plan  53  Print  Patiart  Cara  Raauiramants 

1 

2~.    Print  Nuram;  Lnra  Pic-  ""  '  '.ncemc.  Potiant  Ziuasi  f  icctio- 

t^.     Lxternc.  P-tiant.  Z  .oaal  f  iC-t.  lo-^ 

Cr  Si^r^-Cf^  2-  ""aate'  5;rr9f"- 

Lurrent  uaer .         , 

I  SaiBCt  ona  numoer  CO-B^  ---->  • 


Figure  5.1.1 

Selection  1  advances  the  program  to  Figure  5.1.1.1  [Select 
The  Desired  Nursing  Care  Plan  Function].   This  ontion 
allous  the  nurse  to  enter  or  inactivate  a  patient's  care 
plan . 

Selection  2   and  3,  on  the  Nursing  Master  Screen  vary 
only  m  the  location  of  their  output.   Selection  B  displays 
the  nursing  care  plan  on  the  screen.   Figure  5.1.1.2,  is  a 
screen  output  for  Revieiu  Nursing  Care  Plan.   Selection  3 
provides  the  same  nursing  care  plan  information  on  the 
printer.   Selection  4  [External  Patient  Classification] 
requires  the  nurse  to  leave  this  portion  of  the  prototype 
project  [see  Expert  System  Supplement]. 
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Selection  5,  of  the  Nursing  Master  Screen  [Figure 
5.1.13,  Review  Patient  Care  Requirements,  displays  all 
active  orders  on  the  patient.   Patient  Care  Requirements 
are  the  total  active  medical  and  nursing  care  orders  for  a 
particular  patient.   Figure  5.1.1.3  is  a  screen  output  for 
Review  Patient  Care  Requirements. 


Press  —  Ctrl  and  S  —  Hays  Za   Pqusb  Tha  Scroilino  If  Necossarg 
Page  No  .      1 
01/12/B6 

Data     Time    Order  Fraquoncg     Practltlonor 

01/11/B6  10:05:20  Taoch  ftlt  Coping  Stratagias  G.  Harmegar  RN 

01/11/B5  12:08:07  ftssist  Bed  To  Wnaeichair     TID  N.  Lyons  nO  i 

01/11/BB  13:10:15  SBlf/nmimum  Cara 

01/11/BB  13:10:53  Keep  Commoda  (3  Bedside 

01/11/B5  1^:13:4''  Up  in  Chair  w/  Assist 

01/11/86  14:1^1:23  aiQisecic  Diet 

01/12/86  10:17:14  Cloride 

01/12/85  10:17:40  Sodium   ' 

01/12/86  10:13:00  ftmyiQSB 

01/12/85  10:18:25  Potassium 

01/12/85  10: 18:55  Ca2 

01/12/86  10: 13:25  CSC 

01/12/85  10:13:5t  Flatlets 

01/12/85  10:20; IS  Glucose 

01/12/85  10:22:02  IrtOKS  &  QutPut 


TID 

N. 

Lyons  nO 

5. 

Harmayer 

RN 

TID 

G. 

Hormeyar 

RN 

TID 

N. 
N. 

Lyons  HD 
Lyons  HD 

Doily 

a 

0600 

T. 
T. 

Bui 
Bui 
Bui 

HD 

no 
no 

Doily 

B 

0600 

T. 

Bui 

no 

Daily 

e 

0500 

i  • 

Bui 

no 

Daily 

2 

0600 

A    • 

Bui 

no 

Daily 

3 

0500 

T. 

Bui 

no 

uaila 

™ 

0600 

x 

Bui 

HD 

^  T  *"» 

-r 

Bui 

nc 

r  1  o,  .r- 


ure  w 


Selection  B  provides  the  same  information  on  the  printer. 
Selection  7  [Internal  Patient  Classif icationD ,  gives 
the  patient  classification  level  and  point  value  — 
Figure  5.1.1.6  [Appendix  F3 
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Patient;  Mary  niser 

la  In:  Category  II 

Point  UaluB  la:  27 


Figure  5.1.1.6 
Nursing  Diagnosis 


SeiecLicn  1  on  rhe  Nursing  naster  Screen,  advances  the 
arcgrar  tc  Figure  5.1.1.1  CSeiect  The  Desired  Nursing  Cere 
Plan  FunCwicnD  .   The  nurse  has  riuc  major  choices:  selection 
1  --  Enter  Neui  Care  Plan  and  selection  2  --  Inactivate 
Portions  of  Care  Plans.   Selection  1  advances  the  program 
to  Figure  5.1.1.1a  CSeiect  Nursing  Diagnosis]. 
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Ward  Room  Bad 


Patient 


Reg  •• 


Date      Time 


SELECT  NURSING  DIAGNOSIS 


IJ   Comfort,  »=(ltaration  In:  Pain 


23   Communication,  Imoaired:  Uaraal 


3]   ImooirBd  Physical  notility 


M]   Solf-Cara  Deficit 


0)    Sign-Off 


53  Hvr^c^  natter   Screen 


6  3  noacer  Screen 


Current  user . 


Select  one  numDer  CO-53  ---->  ■ 


Figure    5.1.1.1a 


Df    the    52    nursing    diagnoses   cccroved    through    the   5th   and 
5th    Nc:ticnai    LnnfBrBri:BS    of    the    North    f^rrerioan    Nursing 
Diagnosis    "^ssooiotion    c    recreseniotive    four    uiere    ohosen. 


Patient    <^ssessrnen1 


Folloujing    the   selection    of    one   of    the    diagnoses,    the   nurse 
advances    to    one    of    the    four    assessment    screens    CFigure 
5. 1.1. It),    5.1.1.1k,    5.1.1.1q,    5.1.1.1y]. 


( 
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Uiard    Room    Bed 


Patient 


Rag  N 


Dots 


Time 


••   SELECT  NURSING  ASSESSHENTS  FDR  A  PftTIENT  WITH 
--  NURSING  DIAGNOSIS  DF  CDrFDRT  ALTEPflTION  IN:  PAIN 


IJ  Altared  Time 

Perception 

23  Alteration  Huscle  Tone 

3]  Autonomic  Rosoonso 

ID  Distraction  Behavior 

53  Facial  nosk 


73  Guarding  Benavior 

83  Imoaired  Thouont 
Process 

93  Narrouing  Focus 

103  Pacing 

113  Patient  Reoort 


123  Solf-Focuaing 

133  Talkative 

143  Uerbal  Comoiaint 

153  Uocai  Comolaints 
Crioans,  Crging3 

163  Ulthdrauial  From 

Social  Contact 


B  3  Other  Assessment :  C 2 


Select  one  numoor  COl-15}  — > 


Figure  5.1.1.1b 

Assessments,  related  factors,  goals  and  nursing  orders 
used  are  not  an  inclusive  list,  but  rather  generic  options 
to  build  on.   Any  assessment,  related  factor,  goal  or  oraei 
can  be  changed  tc  oetter  reflect  the  individual  nature  of 
their  hosDital  setting.   Tc  select  any  number  less  than  10, 
enter  either  03  cr  3  <enter>  tc  advance  zhe    program. 


Related  Factors  and  Patient  Goals 


Follouing  the  assessment  selection,  the  program  moves  to 
the  related  factor  associated  uith  the  diagnosis  CFigure 
5.1.1.1c,  5.1.1.11,  5.1.1.1r,  5.1.1.1Z3.   The  patient  goal 
screen  follows  CFigure  5. 1.1. Id,  5.1.1.1m,  5.1.1.1s, 
5.1.1 .laal . 
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Ward  Room  Bed 


Patient 


Reg  •• 


Date      Time 


••     SELECT  A  RELATED  FACTCR  FDR  o  POTIENT  WITH 
••  NURSING  DIAGNOSIS  OF  COHFORT  ALTERATION  IN:  PAIN 


1]   Altered  Sensation 


S]   DiaeosB  /  Condition 


3]   EmotionQl  Stota 


4D   Other:  C 


53   Surgical  Procedure 


63   Trauma 


73   Treatment  Reoiwa 


Current  user 


Select  one  numoer  Cl-7  3  ----> 


Figure   5.1.1.1c 


war::!    Roof"    Bo- 


Pctian! 


Ker    • 


Date 


••  SJILECT    o    "OTIENT    GOAL    FGP    A    PATIENT    UlTH 

••  NuRSiNi  3:a5ncs:s  c^  cc^fcrt  alteration  :s  "qis, 


13  Communicates  Pain  Free 

23  Communicates  Exoeriencea  Lass  Pain 

33  Communicates  Experience  of  Pain  nore  Tolerable 

^3  Demos  Skills  &  Knouiledge  to  Achieve  Pt  Goals 

5  3  Other  Goals:  C 


Current  user 


Select  one  numoer  Cl-53  ----> 


Figure  5 . 1 . 1 . Id 


Nursing  Orders 


The  patient  goal  selected,  triggers  the  appropriate 
patient  order  screen.   If  patient  diagnosis  selection  is 
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comfort  alteration  m:  pain,  and  the  goal  selected  from 
Figure  5. 1.1. Id  is  1,  E,  3,  or  5,  Figure  B.l.l.l.e  appears 
To  obtain  additional  information  on  some  of  the  nursing 
orders,  the  program  may  advance  the  nurse  to  Select  Time  / 
Frequency  Option  CFigure  S.l.l.lg]  luith  its  help  facility 
CFigure  B.l.l.lhD;  a  teaching  module  CFigure  B.l.l.liD  to 
illicit  the  type  of  teaching  necessary;  or  an  emotional 
support  screen  to  determine  the  tyae  of  emotional  support 
required  CFigure  S.l.l.ljD.   With  the  selection  of  goal  4, 
the  program  displays  Figure  C5. 1.1. If  3. 


Ward  Room  Bad 


PQtiont 


Reg  # 


Date 


Tlma 


►•  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 

'•  COnnUNICATES:  PAIN  FREE,  EXPERIENCES  LESS/TOLERABLE  PAIN  OR  OTHER  GOAL 


13  Assess  Pom  Factory 

51  Assess  &  Evaluate  Pain 

33  Encour  Pt  to  Use  Copmo  Strateou 

H]  Give  Irfo  &  ExDlam  Proc  &  Tests 

5]  CtMer  Nuram;  Oraers: 


53  Offer  PRN  nodications 

73  Provide  Emotional  Support 

B3  Schedule  "Quiet  Times" 

33  Teach  Alt  Coping  Strategies 

122  Dtiiizs  Civersionol  Activities 


Lurrent  User 


Select  one  number  COl-103  ---> 


Figure  5  . 1 . 1 . le 
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Ward  Roam  Bad 


Patient 


Rog  » 


Date 


Time 


••  SELECT  f^   NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOf\L    IS  •• 
••   DEnONSTRPTES  SKILLS  S  KNOWLEDGE  TO  ACHIEUE  GOALS   •• 


Teach  Stress  Reduction  Techniques 
13   Deep  Breathing 
2  3   Prooressive  Relaxation 
33   Relaxation  Response 
H2       Diverslonal  Activity 
53   Other:  Z 


Current  User; 


Select  one  number  Cl-53  ----> 


'  Figure  5. 1 . 1 .If 

Ecch  of  the  four  nursing  diagnoses  follows  the  same 
sequence:  assessment,  related  factor,  goal  and  nursing 
order  with  generic  type  resnonses.   The  only  variation  lies 

m  the  goal  ssrtinn  n^f  the  Self-Cars  Defirit  diagnosis 
[Figure  5.  1.1.  ice].   Levels  C  through  '-t    ere  self  cere 
ieve  "  as  defined  ir  C:2r!.°'JTE.'=IZEC  NURSING  Cf^RE  PLf=iNNING 
L'TIL.ZINE  NURSING  DIAGNDSIS  end  referenced  m  the  mam  text 
cf  tne  thesis.   Current  level  cf  c:zre    required  is  aiso 
asked  for.   Current  level  cf  cere  enters  into 
the  patient  classification  determination. 

Pi  caveat  exists  regarding  the  use  of  the  "other  order" 
option  provided  by  each  of  the  nursing  order  screens.   Many 
nursing  orders  are  directly  linked  to  the  internal 
processing  of  the  patient  classification  system.   The  use 
of  the  "other  order"  may  give  a  more  accurate  order,  but 
ujill  not  enter  points  into  the  patient's  classification 
level.   If  orders  are  identified  that  need  to  be  added,  and 
affect  the  patient  classification,  they  should  be 
incorporated  into  the  program,  rather  than  being  typed  in. 


Inactivate  Portion  of  Care  Plan 


In  addition  to  selection  1  on  the  Select  Desired  Nursing 
Care  Plan  Function  screen  [Figure  5.1.1.13,  the  nurse  can 
choose  to  inactivate  a  portion  of  the  care  plan  by 
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selecting  option  E.   Figure  5. 1,1. lag  displays  nursing  care 
plan  information  for  revieu  and  mactivation  as  needed. 


System  Administration  Personnel 


Access  level  0  or  E  ujill  allouj  the  user  access  to  the 
System  Administration  section  of  the  program.   The  target 
user  group  for  this  section  is  the  deoartment  responsible 
for  issuing  access  levels  and  recording  user's  information 
Figure  5.1  provides  the  format  used  to  enter  user's 
information . 


••"  SELECT  «DD  /  DELETE  A  USER  ••• 


1 :   Odd  A  User 


jBiete  A  use: 


durrenr  user : 

SolBCt  ana  numoar  CO-23  ---->   ■ 


Figure  5 
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USER  INFORnflTION 
THIS  INFDRnATIDN  IS  CONFIDENTIAL 


First  Inltioi: 

niddlo  Initial 

Lost  Nome: 

Cotogary    of 
Ftoquescor : 

Paasujord : 

ACCBSB  Lovai: 


Figure  5.1 

The  User  Inf nrmction  scresn  consists  cf  E  input  areas. 
After  inputting  the  information,  press  enter  to  move  to  the 
next  oategory .   The  amount  of  information  and  the 
aooeptcr:ie  inputs  crs  as  foiiouis. 

First  Initial:    Piloujs  only  one  character  tc  be  enter- 
ed, automatically  capitalizes  it. 
places  a  period  after  the  letter  and 
advances  the  user  tc  the  next  field. 

riiddle  Initial:   Parameters  are  identical  to  First 

Initial ■ 

Last  Name:        Alloujs  entry  of  up  to  20  letters, 

capitalizes  the  first  letter  and 
advances  the  user  to  the  next  field. 

Category  of       A  three  letter  field  for  a  coded 

category . 

Requestor:        Could  include  rate,  rank  or  education- 
al background.   Used  for  user  infor- 
mation only  and  is  not  otherwise 
incorporated  into  the  program. 

Passujord:         A  5  letter  or  number  code  selected  by 

the  user  to  log  into  the  system. 

Access  Level:     Authorizes  a  person  to  enter  different 

sections  of  the  softujare  project. 
Five  levels  of  access  are  available: 

0  Unlimited  access  to  all  sections  of 
the  software  project. 

1  Restricted  to  the  admission's  sec- 
tion of  the  software  project. 


90 


( 


Restricted  to  the  data  base  section 
of  the  software  project. 
Restricted  to  the  doctor  section  of 
the  softuiare  project. 
Re'^tricted  to  the  nursing  section 
of  the  software  project. 


Expert  System  Supplement 


There  are  two  ways  for  the  nurse  to  obtain  a  patient 
classification,  externally  or  internally  [selection  4  and  7 
respectively  on  Figure  5.1.1  —  Nurse's  Haster  Screen]. 
Selection  4  loads  a  qualifier  and  value  number  for  each 
patient  order  that  corresponds  to  a  critical  indicator. 
This  is  the  expert  system  information  to  calculate  the 
patient  classification  level . 

To  calculate  the  external  patient  classification  system 
choose  selection  4,  Figure  5.1.1.   A  manufacturer's 
sign-off  message  appears  at  the  bottom  of  the  screen 
indicating  that  you  are  leaving  dBase  III.  Remove  disk  A:E 
and  insert  disk  A:3.  Type  b:expert  <enter> .   The  expert 
program  loads  into  memory  the  necessary  information  to 
calculate  the  patient  classification.   The  program  asks 
some  preliminary  questions  CthreeD  which  require  no  response 
except  <enter> .   The  expert  system  program  gives  the 
user  an  opportunity  to  see  the  rules  used  to  arrive  at  the 
classification  level . 

Selection  7  of  Figure  5.1.1  works  in  a  similar  manner  to 
selection  4,  without  leaving  the  main  program.   Selection  7 
provides  a  much  quicker  patient  classification  level,  but 
is  not  able  to  provide  the  user  with  the  information  on  how 
the  classification  was  derived. 

During  the  programming  phase  of  this  project,  medical 
orders  that  corresponded  to  critical  indicators  were  tied 
to  their  corresponding  medical  order,  ie .  vital  signs  DD 
receives  a  patient  point  value  of  1,  apnea  monitor  receives 
a  monitor  point  value  of  6.   The  reason  vital  signs  has  a 
patient  point  value  and  apnea  monitor  has  a  monitor  point 
value  is  because  the  vital  sign's  critical  indicator 
relates  directly  to  critical  indicator  points.   This  is  not 
true  of  an  order  for  an  apnea,  cardiac  or  pressure  monitor. 
In  the  latter  case  the  patient  point  total  would  remain  at 
B  even  if  three  monitors  were  ordered.   Ulhere  point  totals 
are  not  additive  or  do  not  directly  translate  to  patient 
points  —  the  cardiac,  apnea,  temp  and  pressure  monitors; 
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S&A,  SpGr,  Guiac  and  spin  HCT;  and  emotional  support  — 
special  point  totals  are  calculated  prior  to  their 
translation  to  a  patient  point  totals. 

Listed  in  Appendix  F  are  qualifiers  and  their  values 
used  to  derive  the  expert  system's  rules.   Through  the  use 
of  38S  rules,  the  patient  classification  level  is  derived. 
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APPENDIX    D 
PATIENT  CLASSIFICATION  CRITICAL  INDICATORS 


(11 
12) 
141 
181 

(21 
(8) 
(2) 
131 
(8) 
(21 


(6) 
(21 
(61 
(14) 

(2) 
(51 
(61 
(10) 


ViUl  vijos  (110  or  liss 
Viui  sgns  q4li  or  X  8 
Vitil  siqoa  q2b  or  x  12 
Vital  aqua  qlb  or  x  24 

\m»kM  ud  oatpot  qSb  or  x  3 

lataka  lad  sat^  q2h  or  x  12 

OrraiaooB  or  fvnrfn  diada  qZli  or  z  12 

■•an  dwda  q4)i  or  x  8 

MMra  diada  qlb  or  x  12 

CVP  or  IC?  (maaaaU  q21>  or  x  12 


Vn-AL  SIGNS  (MANUAL  TPq.  8P> 


(2)  fUcui  or  axiJUrY  rmnx  or  iptcal  pais*  QIO  or  mora 

12]  Fanmrai  or  padai  (taisai  or  FHT  q4ti  or  mora 

(2)  nit  mts  q41i  or  mora 

(6)  Psst-o|i.  pastiMrcuai  or  pnt-oawriiani 

MONITORING 

'     (6)  CafTJiaciapnaaftamprpraatara  ffloaitoQ'  umt  tddhivil 

(61  Transestanaoas  naaitar    '. 

(4)  A-liaa  or  IC7  Imomtorl  or  Swraa  Ganz  sat-iip 

12]  ATioa  or  (C7  Imoaitori  raatiiiiq  q2Ii  or  x  12 

(21  PAPrPA  nad^  raadiaf  q4k  or  x  8 

(4)  PAPr?k  woBQi  raadiaq  q2h  or  x  12 

(2J  Zat^ac  oatpat  TIO  or  x  3 

AcnvrnES  of  daily  uvino 


InfaBtmiiUlar  cara  (  :S  faara)    . 
SaHlmiaiaiai  cara  (adalt  or  diild  >  S  T«*r^ 
Aasistad  cara  (  >  S  imt\  ■  peainan  sail 
Canplata  cara  I  >  5  i%Mn)  asm  wtttt  pasitiuaiaq 


132" 

(4) 
(14) 
(81 
FgtOINO 


Fotai  cara  (  >  5  T«afsl  -  poaitiaa  aod  sida  cara  q2]i 
Extra  (Jaaa  diaaqa  aad  partial  hatli  2x  par  ihitt 
Taniinq  fraow  (2  itaff  ts  tarn  q2h) 
Pads  tacraatioaiotaanratiaa  ■  0-12  Tn  lizduda  H8M) 


Tuba  foadiag  |eaatiaa«as)  -  par  liaq  chaaqa  (2) 

Tuba  (aad  (balaal  adoiUebildioaaoata  q41)  or  x  8  (12} 

Adatt  laaaia  >  5  yasrs  (tpoaa  faad  x  3)  (24) 

Child  oaala  a  S  yaars  (s^ooa  faad  i  3) 

•      TWgATMgfrrS/PWOCgPURgS/MgPtCATIONS 


Infaat/naaaata  battJa  x  1  faadinq 
infaoCDaoaata  bottla  q4)i  or  x  S 
lataotiiaaaata  botda  q2b  or  x  12 


Simola  ■iSind*  30  MinBtas  Total 


121 
(2) 
(2} 

12) 

(21 

(2) 

(21 

(2) 

(2) 

(21 

(2) 

12)- 

(2) 

(2) 

(2) 
12) 
2) 
!4) 
(6) 
|8) 


Start  IV  or  MG  loaaraoa  or  Foitt  imartiaa  or  £KG  (41 

Sarqicai  p/a^  or  inoau  or  aca  wrrapualaatic  xtoejun^  (4) 

Siopla  draaaioq  x  2.  or  taba  cara  i  2  (axduda  trtcbC  Folay  (41 

earn  2  (4) 

SiA  or  SpGr  or  6uiac  or  tpim  HCT  x  8  (4) 

lab  stndiaa  z  8:  ABG  xtick  or  Uood  ealtnra  z  3  14) 

Madkatioaa  q3b  •  qSh  lasiBda  IV)  ■  (  op  m  12  tnpsi  (4) 

Imgatiaaa  or  iastillatiaea  x  4  or  (aaa  (4) 

RMtraiats  (2  or  4  paiot  or  poaar)  14) 

Aaaist  a  ciair  or  itiaiUiai  *ad  ratani  x  3  (12] 
Aaaist  tn  araik  asd  ratnra  x  1 
litfaat  drdUDcmoo  or  phototharapY 
laoiadoa  (gowa  &  glova  x  8) 

Acconipaaf  patiaat  off  ward  >  IS  ouautas  &  *  30  minotaa 
Otbar  actJvrdaa  raqathoq  >  IS  ainatas  &  '«  30  onootaa 

neSPIHATORV  TWERAPV 


Camolai  »  30  minaiaa  and  *  1  Hoar  Total 


Cbaat  tnaa  icuamoa  oc  lumoar  pnnctura 

Thoracaatasia    or  paracaatasta 

Uaplai  drassiof  ebaa^  (  »  30  ntaataa  to  caoiplaial 

Straiqbt  catbatanzatua  x  4  or  m«ra 

Madicatiaaa  qib  or  snra  laxduda  IV)  (  >  12  tnpa) 

Raaqa  of  laatioa  tzarcaaa  x  3 

AcnapaaY  patiaat  off  wani  >  30  maataa 

Ottiar  tcovitiaa  raqairiaq  >  30  rmaataa  aad  - «  1  hoar 

Traasfar  Oa-baaaat  -  asaan  &  oriaot 

law  adauaaiaa  -  taa^  k  onaat 


Soaeial  PTocadnraa  ■*  1  Hoar  *  4  Honra 

18)       taca  eaopiata  Oour  raqainag  caaiiDttaua  staff  attaodanea 


Oifgaa  tharapf  or  ozYhood 
Incaativa  spiroowtar  or  C&OB  q4b 
IPPB  or  maximist  BIO  or  x  2 
IPPB  or  mazimist  q6h  or  x  4 
IPPB  or  maiimot  q4b  or  x  8 
Croap  tant  or  mtst  ant 


12) 
14) 
161 
(2) 
14) 
(41 
110) 

IV  THeHAPV 

ffl" 


Cbaat  palffiooarT  tharapy  BIO    or  i  2 
Cbaat  pnimenarr  tbarapy  q6h  or  x  4 
daat  poinonarf  tbanoY  q4b  or  i  8 
Soctioning  q4h  or  i  8 
Suctioninq  q2h  or  x  12 
Tracbsosiannf  cara  i  3 
Vanulator 


.4)       KVO  (chanqa  bottio  BIO  or  lani 

i4)       Heparin  locli  or  Broviac  (3) 

18)       Slmpla  (cbanqa  bonta  TIO  or  010)  (4) 

181       Camolex  (two  or  nora  sttaa  or  cbanga  bottla  q4h  or  (2) 

oiultilumaa  linat 

TEACHING  AND  ETV/IOTtONAL  SUP<»qWT 
(IVIustba  <jocmii««if<il 
Teaching 

12)       Group  taacbinq 
14)       Preoparativa  taacbinq 

(41       Structorad  taacbinq  (La.  diabadc  cardiac  caioatomy  cara. 
post  parmm  fim  24  hn.  oawrbom  cara.  discftarqal 


Madicaoon  qSh  or  i  3 
MadicaaoD  q6h  or  i  4 
IMadicaOoo  q4h  or  i  S 
Blood  produeta  Isaeb  unit) 


fcmotionai  Support  In  eieaaa  of  3D  minutw  q  2i  !ioura.l 


14) 
(4) 

16) 


Paoant/tamiiy  juppon  ti^  anxietY.  aaniat.  loneliness,  stci 
Modificaaoa    lifesrrla  <La.  naw  prostbasis.  bady  imaqa. 
baflavior  modificadoo.  ncj 

Sansarr  depmauaa  (La.  raurded.  deaf,  blind,  lanqaaqa 
bamar.  bilataral  «y<  patches,  eonfusad.  cambauve.  «tcj 
Maiifflom  points  far  smotianal  support 


110) 
CONTINUOUS 

(381    Patiant  reqairinq  1:1  cavaraqa  ail  shifts  (i.a.  pemoneai  uaiysis.  camoatrva.  atej 
(146)  Padaot  raqairinq  giaatar  than  1:)  cavaraqa  all  shifts  tlx  venalaiar  witb  otaldaia  vasopressors.  lABP.  stcj 
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QUf=<LIFIERS 

Uital  signs  order  is: 

QID  or  less 
q^ih  or  X  B 
qEh  or  x  IE 
qlh  or  X  24 
Not  ordered 

Used  in  rules:  1-5 

Rectal  or  axillary  temp  order  is: 

Rectal  temps  less  than  QID 
Axillary  temps  less  than  QID 
Rectal  temps  QID  or  more 
Axillary  temps  QID  or  more 
Not  ordered 

U5ed  in  rules:  B-10 

Patient  order  for  apical  pulse  is: 

Apical  pulse  less  than  QID 
Apical  pulse  QID  or  more 
Not  ordered 

Used  in  rules:  11-13 

Patient  order  for  femoral  pulse  is 

Femoral  pulses  are  less  than  q4h 
Femoral  pulses  q'ih  or  more 
Not  ordered 

Used  in  rules:  14-16 

Patient  order  for  pedal  pulse  is: 

Pedal  pulses  less  than  q4h 
Pedal  pulses  q4h  or  more 
Not  ordered 

Used  in  rules:  17-19 
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6.  Patient  order  For  FHT  is: 

FHT  less  than  q4h 
FHT  q4h  or  more 
Not  ordered 

Used  in  ruies:  20-EB 

7.  Patient  order  for  tilt  test  is: 

Tilt  test  less  than  q4h 
Tilt  test  q4h  or  more 
Not  ordered 

Used  in  rules:  S3-E5 

8.  Patient  order  for  postop/post  partum/post-newborn  vital 
signs  is: 

Post  op  vital  signs 
Post-partum  vital  signs 
Post-newborn  vital  signs 
Not  ordered 

Used  in  rules:  BB-E9 

9.  Patient  order  for  intake  &  output  is: 

Intake  &  output  less  than  qSh  or  x  3 

Intake  &  output  at  least  qBh  Cx  3D  but  less  than  q4h 

CxBD 

Intake  &  output  q4h  or  x  6 

Intake  &  output  qBh  or  x  IB 

Intake  &  output  qlh  or  x  B4 
Not  ordered 

Used  in  rules:  30-35 

10.  Patient  order  for  circulation  checks  is: 

Circulation  checks  less  than  qBh  or  x  IB 

Circulation  checks  qBh  or  x  IB 

Circulation  checks  qlh  or  x  B4 
Not  ordered 

Used  in  rules:  3B-39 
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11.  Patient  orders  For  neuro  checks  is: 

Neuro  checks  less  than  q4h  or  x  B 
Neuro  checks  q4h  or  x  6 
Neuro  checks  qSh  or  x  IE 
Neuro  checks  qlh  or  x  24 
Not  ordered 

Used  in  rules:  40-44 

12.  Patient  order  for  CUP  manual  readings  is: 

CUP  manual  readings  less  than  q2h  or  x  12 
CUP  manual  readings  q2h  or  x  12 
CUP  manual  readings  qlh  or  x  24 
Not  ordered 

Used  in  rules:  45-4B 

13.  Patient  order  For  ICP  manual  readings  is: 

ICP  manual  readings  less  than  q2h  or  x  12 

ICP  manual  readings  q2h  or  x  12 

ICP  manual  readings  qlh  or  x  24 
Not  ordered 

Used  in  rules:  49-52 

14.  Patient  order  For  fundus  checks  is 

Fundus  checks  less  than  q2h  or  x  12 
Fundus  checks  q2h  or  x  12 
Fundus  checks  qlh  or  x  24 
Not  ordered 

Used  in  rules:  53-56 

15.  Patient  order  For  transcutaneous  monitor  is; 

Transcutaneous  monitor 
Not  ordered 

Used  in  rules:  57,  5B 

16.  Patient  order  for  an  A-line  set-up  is 

A-line  set-up 
Not  ordered 

Used  in  rules:  59,  60 
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17.  Patient  order  for  an  ICP  monitor  set-up  is: 

ICP  monitor  set-up 
Not  ordered 

Used  in  rules:  61,  BE 

18.  Patient  order  for  Sujon-Gantz  set-up  is: 

Swan  Ganz  set-up 
Not  ordered 

Used  in  rules:  B3,  64 

19.  Patient  order  for  A-line  reading  is: 

A-line  reading  less  than  q2h  or  x  IB 
A-line  reading  q2h  or  x  IE 
A-line  reading  qlh  or  x  E4 
Not  ordered 

Used  in  rules:  65-68 

EO.  Patient  order  for  ICP  monitor  reading  is: 

ICP  monitor  reading  less  than  qEh  or  x  IE 
ICP  monitor  reading  qEh  or  x  IE 
ICP  monitor  reading  qlh  or  x  E4 
Not  ordered 

Used  in  rules:  69-7E 

El.  Patient  order  for  PAP/PA  wedge  reading  is: 

PAP/PA  wedge  reading  of  less  than  q4h  or  x  6 
PAP/PA  uiedge  reading  q4h  or  x  6 
PAP/PA  wedge  reading  qEh  or  x  IE 
PAP/PA  wedge  reading  qlh  or  x  E4 
Not  ordered 

Used  in  rules:  73-77 

EB .    Patient  order  for  cardiac  output  is: 

Cardiac  output  less  than  TID  or  x  3 

Cardiac  output  less  than  TID  Cx  3]  but  less  than  q4h 

Cx  63 
Cardiac  output  q4h  or  x  6 
Cardiac  output  qEh  or  x  IE 
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Cardiac  output  qlh  or  x  24 
Not  ordered 

Used  in  rulee:  78-83 

23.  Patient  order  For  ADL  is: 

Infant/toddler  cars  C  -<  5  years] 
Self /minimal  care  Cadult  or  child  >  5  years] 
Assisted  care  C>  5  years]  positions  self 
Complete  care  C>  5  years]  assist  with  positioning 
Total  care  C>  5  years]  position  and  skin  care  qEh 

Used  in  rules:  84-88 

24.  Patient  order  for  extra  linen  change  and  partial  bath 

is: 

Extra  linen  change  and  partial  bath  less  than  2x  per 

shift 
Extra  linen  change  and  partial  bath  2x  per  shift  Cor  Bx 

per  day] 
Extra  linen  change  and  partial  bath  4x  per  shift  Cor  12x 

per  day ] 
Extra  linen  change  and  partial  bath  Bx  per  shift  Cor  24x 

per  day] 
Not  ordered 

Used  in  rules:  88-33 

25.  Patient  order  for  turning  frame  is: 

Turning  frame  less  than  q2h 
Turning  frame  qEh  or  x  12 
Turning  frame  qlh  or  x  24 
Not  ordered 

Used  in  rules:  34-97 

EG.  Patient  order  for  peds  recreation/observation  is: 

Peds  recreation/observation  -  0-12  yrs  Cexc  NBN] 
Not  ordered 

Used  in  rules:  98,  99 

27.  Patient  order  for  tube  feedings  is: 

Tube  feedings  continuous  —  less  than  1  bag  per  24  hours 
Tube  feedings  continuous  —  1  bag  per  24  hours 
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Tube  Feedings  continuous  —  2  bag  per  24  hours 
Tube  feedings  continuous  —  3  bag  per  24  hours 
Tube  feedings  continuous  —  4  bag  per  24  hours 
Tube  feedings  continuous  —  6  bag  per  24  hours 
Tube  feedings  continuous  —  12  bag  per  24  hours 
Tube  feedings  continuous  —  24  bag  per  24  hours 
Tube  feedings  CbolusD  less  than  q4h  or  x  B 
Tube  feedings  CbolusD  q4h  or  x  6 
Tube  feedings  CbolusD  q2h  or  x  12 
Tube  feedings  CbolusD  qlh  or  x  24 
Not  ordered 

Used  in  rules:  100-112 

28.  Patient  order  for  spoon  feeding  is: 

Adult  meals  >  5  Cspoon  feed  x  3D 

Child  meals  -<  5  years  Cspoon  feed  x  3D 

Not  ordered 

Used  in  rules:  113-115 

23.  Patient  order  for  inf ant/neonate  bottled  feeding  is: 

Infant/neonate  bottle  x  1  feeding 
Infant/neonate  bottle  q4h  or  x  6 
Infant/neonate  bottle  q2h  or  x  12 
Not  ordered 

Used  in  rules:  llB-119 

30.  Patient  order  for  lU  insertion  is: 

lU  insertion 
Not  ordered 

Used  in  rules:  120,  121 

31.  Patient  order  for  N6  insertion  is: 

NG  insertion 
Not  ordered 

Used  in  rules:  122,  123 

32.  Patient  order  for  foley  insertion  /  straight  catheter- 

ization is: 

Foley  insertion 

Straight  catheterization  of  less  than  4 
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straight  cathsterization  of  4  or  more 
Not  orderBd 

Used  in  rules:  124-1S7 

33.  Patient  order  for  EKG  strip  is: 

EKG  rhythm  strip 
Not  ordered 

Used  in  rules:  lEB,  129 

34.  Patient  order  for  surgical  prep  is: 

Surgical  prep 
Not  ordered 

Used  in  rules:  130,  131 

35.  Patient  order  for  enemas  is: 

Enemas 

Not  ordered 

Used  in  rules:  132,  133 

36.  Patient  order  for  ace  lurap/elastic  stockings  is 

Ace  wrap 

Elastic  stockings 

Not  ordered 

Used  in  rules:  134-136 

37.  Patient  order  for  dressings  change  is: 

Simple  dressing  change  less  than  x  2  or  BID 
Simple  dressing  change  x  2  or  BID 
Simple  dressing  change  x  3  or  TID 
Simple  dressing  change  x  4  or  QID 
Simple  dressing  change  x  6  or  q4h 
Simple  dressing  change  x  12  or  q2h 
Simple  dressing  change  x  24  or  qlh 
Complex  dressing  change  x  1  or  QD 
Complex  dressing  change  x  2  or  BID 
Complex  dressing  change  x  3  or  TID 
Complex  dressing  change  x  4  or  QID 
Complex  dressing  change  x  6  or  q4h 
Complex  dressing  change  x  12  or  q2h 
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Complex  dressing  change  x  E4  or  qlh 
Not  ordered 

Used  in  rules.-  137-151 

38.  Patient  order  for  tube  care  Cexcluding  trachD  is: 


Tube 

care 

less  than  x  E  or  BID 

Tube 

care 

X  2  or  BID 

Tube 

care 

X  3  or  TID 

Tube 

care 

X  4  or  DID 

Tube 

care 

X  B  or  q4h 

Tube 

care 

X  12  or  q2h 

Tube 

care 

X  24  or  qlh 

Not  ordered 

Used  in  rules:  152-159 

39.  Patient  order  for  Foley  care  is; 

Foley  care  less  than  x  2  or  BID 

Foley  care  x  2  or  BID 

Foley  care  x  3  or  TID 

Foley  care  x  4  or  DID 

Foley  care  x  B  or  q4h 

Foley  care  x  12  or  q2h 

Foley  care  x  24  or  qlh 

Not  ordered 

Used  in  rules:  160-1B7 

40.  Patient  order  For  S  &  5  is: 


s 

& 

f^ 

X 

1  or  QD 

s 

& 

A 

X 

2  or  BID 

s 

& 

A 

X 

3  or  TID 

5 

& 

A 

X 

4  or  QID 

5 

& 

A 

X 

B  or  q4h 

S 

& 

A 

X 

12  or  q2h 

S 

& 

A 

X 

24  or  qlh 

Not  ordered 

Used  in  rules:  lBB-175 

41.  Patient  order  for  SpGr  is: 

5pGr  X  1  or  QD 
SpGr  X  2  or  BID 
SpGr  X  3  or  TID 
SpGr  X  4  or  QID 
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SpGr  X  B  or  q4h 
SpBr  X  12  or  qEh 
SpGr  X  24  or  qlh 
Not  ordered 

Used  in  rules:  17B-1B3 

4E .  Patient  order  for  Guiac  is; 


Guiac  stools 
Guiac  stools 
Guiac  stools 
Guiac  stools 
Guiac  stools 
Guiac  stools 
Guiac  stools 
Not  ordered 


Used  in  rules:  1B4-191 
43.  Patient  order  for  spin  HCT  is: 
Spin  HCT  X  1  or  QD 


X 

1  or  QD 

X 

E  or  BID 

X 

3  or  TID 

X 

4  or  QID 

X 

B  or  q4h 

X 

IS  or  qEh 

X 

E4  or  qlh 

Spin 

HCT 

X 

S  or  BID 

Spin 

HCT 

X 

3  or  TID 

Spin 

HCT 

X 

4  or  QID 

Spin 

HCT 

X 

B  or  q4h 

Spin 

HCT 

X 

IS  or  qEh 

Spin 

HCT 

X 

S4  or  qlh 

Not  ordered 

Used  in  rules:  1SS-1B9 

44.  Patient  order  for  lab  studies  is: 

Lab  studies  less  than  x  B 
Lab  studies  x  6  or  q4h 
Lab  studies  x  IS  or  qSh 
Lab  studies  x  E4  or  qlh 
Not  ordered 

Used  in  rules:  S00-S04 

45.  Patient  order  for  ABG  stick  is: 

AEG  sticks,  less  than  3 

ABG  sticks,  at  least  3  but  less  than  B 

ABG  sticks  x  6 

ABG  sticks  X  IS 
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AB6  sticks  x  24 
Not  ordered 

Used  in  rules:  E05-210 

4B.  Patient  order  for  blood  cultures  is: 

Blood  cultures  less  than  x  3 

Blood  cultures  at  least  x  3  but  less  than  x  B 

Blood  cultures  x  6 

Blood  cultures  x  IE 

Blood  cultures  x  24 

Not  ordered 

Used  in  rules:  211-216 

47.  Patient  order  for  medications  is: 

Medications  lass  than  qBh  Cexcluding  lUD 
Medications  q3h  -  qBh  Cexcluding  IU3  -  up  to  12  trips 
Medications  q2h  or  more  Cexcluding  IU3  -  >  12  trips 
Not  ordered 

Used  in  rules:  217-220 

4B .  Patient  order  for  irrigations  is: 

Irrigation  x  4  CQIDD  or  less 
Irrigation  x  6  or  q4h 
Irrigation  x  12  or  q2h 
Irrigation  x  24  or  qlh 
Not  ordered 

Used  in  rules:  221-225 

49.  Patient  order  for  instillations  is: 

Instillations  x  4  CQIDD  or  less 
Instillations  x  B  or  q4h 
Instillations  x  12  or  q2h 
Instillations  x  24  or  qlh 
Not  ordered 

Used  in  rules:  22B-230 

50.  Patient  order  for  restraints  is: 

2-point 
4-point 
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Posey 

Not  ordered 

Used  in  rules:  231-334 

51.  Patient  order  oF  assist  to  chair  /  stretcher  is: 

Assist  to  chair  and  return  less  than  x  3  or  TID 

Assist  to  stretcher  and  return  less  than  x  3  or  TID 

Assist  to  stretcher  at  least  x  3  but  less  than  x  6 

Assist  to  stretcher  x  B  or  q4h 

Assist  to  stretcher  x  12  or  qEh 

Assist  to  stretcher  x  24  or  qlh 

Assist  to  chair  at  least  x  3  but  less  than  x  B 

Assist  to  chair  x  6  or  q4h 

Assist  to  chair  x  12  or  q2h 

Assist  to  chair  x  24  or  qlh 

Ambulate  with  assistance  x  1 

Ambulate  ujith  assistance  x  2 

Ambulate  with  assistance  x  3 

Ambulate  mith  assistance  x  4 

Ambulate  with  assistance  x  B 

Ambulate  uiith  assistance  x  12 

Ambulate  with  assistance  x  24 

Not  ordered 

Used  in  rules:  23B-252 

52.  Patient  order  for  infant  circumcision  care  is: 

Infant  circumcision  care 
Not  ordered 

Used  in  rules:  253,  254 

53.  Patient  order  for  phototherapy  is: 

Phototherapy 
Not  ordered 

Used  in  rules:  255,  256 

54.  Patient  order  for  isolation  is: 

Isolation  Cchange  gown  and  gloves  <  x  83 
Isolation  Cchange  gown  and  gloves  x  8  or  more] 
Not  ordered 

Used  in  rules:  257-259 
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55.  Patient  order  for  accompany  patient  off  ward  is: 

Accompany  patient  off  uuard  for  less  than  15  min 

Accompany  patient  off  uiard  for  15  to  30  min 

Accompany  patient  off  ward  for  greater  than  30  min 
Not  ordered 

Used  in  rules:  E60-EB3 

56.  Patient  order  for  other  activities  is: 

Other  activities  requiring  less  than  15  minutes 

Other  activities  requiring  15  to  30  minutes 

Other  activities  requiring  30  min  to  1  hr 

Special  procedures  >  Ihr  <  E  hr  Crequiring  continuous 

staff  attendance] 
Not  ordered 

Used  in  rules:  E64-E6B 

57.  Patient  order  for  chest  tube  insertion  is: 

Chest  tube  insertion 
Not  ordered 

Used  in  rules:  EB9,  S70 

5B .  Patient  order  for  lumbar  puncture  is: 

Lumbar  puncture 
Not  ordered 

Used  in  rules:  E71,  S7S 

59.  Patient  order  for  thoracentesis  is: 

Thoracentesis 
Not  ordered 

Used  in  rules:  E73,  E74 

60.  Patient  order  for  paracentesis  is: 

Paracentesis 
Not  ordered 

Used  in  rules:  S75,  S7B 
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61.  Patient  order  for  range  of  motion  is: 

Range  of  motion  exercises  less  than  x  3  or  TID  h 

Range  of  motion  exercises  at  least  x  3  but  less  than  x  B     V 
Range  of  motion  exercises  x  6  or  q4h 
Range  of  motion  exercises  x  12  or  qEh 
Range  of  motion  exercises  x  E4  or  qlh 
Not  ordered 

Used  in  rules:  277-EB2 

62.  Patient  order  to  transfer  in-house  or  neu  admission  is: 

Transfer  in-house  [assess  and  orient] 
Neuj  admission  Cassess  and  orientD 
Not  ordered 

Used  in  rules:  2B3-285 

63.  Patient  order  for  02  therapy  or  oxyhood  is: 

Oxygen  therapy 

Oxyhood 

Not  ordered 

Used  in  rules:  2B6-2BB 

64.  Patient  order  for  incentive  spirometer  is: 

Incentive  spirometer  less  than  q4h 
Incentive  spirometer  q4h 
Incentive  spirometer  q2h 
Incentive  spirometer  qlh 
Not  ordered 

Used  in  rules:  2B9-293 

65.  Patient  order  for  C&DB  is: 

C  &  DB  less  than  q4h 
C  &  DB  q4h 
C  &  DB  q2h 
C  &  DB  qlh 
Not  ordered 

Used  in  rules:  294-2BB 

66.  Patient  order  for  IPPB  or  maximist  is: 
IPPB  or  maximist  less  than  BID  or  x  2 
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IPPB  or  maximist  BID  or  x  E 
IPPB  or  maximist  TID  or  x  3 
IPPB  or  maximist  q6h,  x  4  or  QID 
IPPB  or  maximist  q4h,  x  B 
IPPB  or  maximist  q2h,  x  IE 
IPPB  or  maximist  qlh,  x  24 
Not  ordered 

Used  in  rules:  a99-30B 

67.  Patient  order  for  croup  tent  or  mist  tent  is: 

Croup  tent 
flist  tent 
Not  ordered 

Used  in  rules:  307-309 

68.  Patient  order  for  chest  pulmonary  therapy  is: 

Chest  pulmonary  therapy  less  than  BID  or  x  E 

Chest  pulmonary  therapy  BID  or  x  E 

Chest  pulmonary  therapy  TID  or  x  3 

Chest  pulmonary  therapy  QID  or  x  4 

Chest  pulmonary  therapy  q4h  or  x  6 

Chest  pulmonary  therapy  qEh  or  x  IE 

Chest  pulmonary  therapy  qlh  or  x  E4 

Not  ordered 

Used  in  rules:  310-317 

69.  Patient  order  for  suctioning  is: 

Suctioning  less  than  q4h  or  x  6 
Suctioning  q4h  or  x  6 
Suctioning  qEh  or  x  IS 
Suctioning  qlh  or  x  S4 
Not  ordered 

Used  in  rules:  31B-3ES 

70.  Patient  order  for  trach  care  is: 

Trach  care  <  x  3  or  less  than  TID 

Trach  care  at  least  TID  Cx  3]  but  less  than  q4h  Cx  BD 

Trach  care  x  B  or  q4h 

Trach  care  x  IE  or  qSh 

Trach  care  x  E4  or  qlh 

Not  ordered 

Used  in  rules:  3S3-3EB 
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71.  Patient  order  for  ventilator  is: 

Uentilator 
Not  ordered 

Used  in  rules:  329,  330 

72.  Patient  order  for  hanging  lU  battles  is: 

KUO  Cchange  bottle  BID  or  lessD 

Simple  Cchange  bottle  TID  or  QIDD 

Complex  Cchange  bottle  q4h  or  more,  two  or  more  sites, 

or  multilumen  tubeD 
Not  ordered 

Used  in  rules:  331-334 

73.  Patient  order  for  heparin  lock  or  Broviac  catheter  iS: 

Heparin  lock 
Broviac  catheter 
Not  ordered 

Used  in  rules:  335-337 

74.  Patient  order  for  lU  medication  is: 

lU  medication  of  less  than  qBh  or  x  3 

lU  medication  qSh  or  x  3 

lU  medication  q6h  or  x  4 

lU  medication  q4h  or  x  6 

lU  medication  q2h  or  x  12 

lU  medication  qlh  or  x  24 

Not  ordered 

Used  for  rules:  33B-344 

75.  Patient  order  for  blood  products  is: 

Blood  products  x  1  unit 
Blood  products  x  2  unit 
Blood  products  x  3  unit 
Blood  products  x  4  unit 
Blood  products  x  B  unit 
Blood  products  x  12  unit 
Blood  products  x  24  unit 
Not  ordered 

Used  in  rules:  345-352 
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76.  Patient  order  for  group  teaching  is: 

Group  teaching 
Not  ordered 

Used  in  rules:  353,  354 

77.  Patient  order  For  preoperative  teaching  is: 

Preoperative  teaching 
Not  ordered 

Used  in  rules:  355,  356 

7B.  Patient  order  for  structured  teaching  is: 

Structured  teaching  Ci.e.  diabetic,  cardiac,  colostomy 
care,  post  partum  first  E4  hr,  newborn  care, 
discharge] 

Not  ordered 

Used  in  rules:  357,  358 

73.  Patient  order  for  emotional  support  is: 

Patient/family  support  Ci.e.  anxiety,  denial,  lonlinessD 
Not  ordered 

Used  in  rules:  359,  360 

80.  Patient  order  for  modification  of  lifestyle  is: 

Emotional  support  for  modification  of  lifestyle  Ci.e. 
new  prothesis,  body  image,  behavior  modification] 
Not  ordered 

Used  in  rules':  361,  362 

81.  Patient  order  for  sensory  deprivation  is: 

Emotional  support  for  sensory  deprivation  Ci.e. 

retarded,  blind,  deaf,  language  barrier,  bilateral 
eye  patches,  confused,  combative,  etc . D 

Not  ordered 

Used  in  rules:  363,  364 
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BS .  Patient  order  for  cardiac  monitor  is: 

Cardiac  monitor 
Not  ordered 

Used  in  rules:  365,  366 

83.  Patient  order  for  apnea  monitor  is: 

Apnea  monitor 
Not  ordered 

Used  in  rules:  367,  36B 

84.  Patient  order  for  temp  monitor  is: 

Temp  monitor 
Not  ordered 

Used  in  rules:  369,  370 

85.  Patient  order  for  pressure  monitor  is: 

Pressure  monitor 
Not  ordered 

Used  in  rules:  371,  372 

86.  Patient  category  is: 

I  Self  Care/Minimal  Care 

I I  noderate  Care 

III  Acute  Care  CI  staff  to  3  patients] 

lU  Intensive  Care  CI  staff  to  E  patients] 
U  Continuous  Care  CI  staff  to  1  patient] 
UI   Critical  Care  CI  staff  to  1  patient] 

Used  in  rules:  377-38E 
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RULES 

Rule  Number:  1 

IF:  Uital  signs  order  is:  QID  or  less 

THEN:  CptpointJ  is  given  the  value  CptpointD  +  1 

Rule  Number:  E 

IF:  Uital  signs  order  is:  q4h  or  x  5 

THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  3 

IF:  Uital  signs  order  is:  qEh  or  x  IE 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  4 

IF:  Uital  signs  order  is:  qlh  or  x  E4 

THEN:  Cptpoint]  is  given  the  value  CptpointD  +  B 

Rule  Number:  5 

IF:  Uital  signs  order  is:  Not  ordered 

THEN:  Cptpoint!]  is  given  the  value:  no  points  aiuarded 

Rule  Number:  6 

IF:  Rectal  or  axillary  temp  order  is:  Rectal  temps 

less  than  QID 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  7 

IF:  Rectal  or  axillary  temp  order  is:  Axillary  temps 

less  than  QID 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  B 

IF:  Rectal  or  axillary  temp  order  is:  Rectal  temps 

QID  or  more 
THEN:  CptpointI]  is  given  the  value  CptpointJ  +  E 

Rule  Number:  9 

IF:  Rectal  or  axillary  temp  order  is:  Axillary  temps 

QID  or  more 
THEN:  CptpointD  is  given  the  value  Cptpoint^  +  E 

Rule  Number:  10 

IF:  Rectal  or  axillary  temp  order  is:  Not  ordered 
THEN:  CptpointU  is  given  the  value:  no  points  aiuarded 


111 


Rule  Number:  11 

IF:  Patient  order  for  apical  pulse  is:  f=ipical  pulse  less 

than  QID 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  12 

IF:  Patient  order  for  apical  pulse  is:  Apical  pulse  QID 

or  more 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  13 

IF:  Patient  order  for  apical  pulse  is:  Not  ordered 
THEN:  Cptpoint^  is  given  the  value:  no  points  awarded 

Rule  Number:  14 

IF:  Patient  order  for  femoral  pulse  is:  Femoral  pulses 

less  than  q4h 
THEN:  CptpointD  is  given  the  value:  no  paints  awarded 

Rule  Number:  15 

IF:  Patient  order  for  femoral  pulse  is:  Femoral  pulses 

q4h  or  more 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  IB 

IF:  Patient  order  for  femoral  pulse  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  17 

IF:  Patient  order  for  pedal  pulses  is:  Pedal  pulses  less 

than  q4h 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  18 

IF:  Patient  order  for  pedal  pulses  is:  Pedal  pulses  q4h 

or  more 
THEN:  Cptpointn  is  given  the  value  CptpomtD  +  2 

Rule  Number:  13 

IF:  Patient  order  for  pedal  pulses  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  20 

IF:  Patient  order  for  FHT  is:  FHT  less  than  q4h 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  21 

IF:  Patient  order  for  FHT  is:  FHT  q4h  or  more 
THEN:  CptpointU  is  given  the  value  CptpointD  +  2 
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Rule  Number:  22 

IF:  Patient  order  for  FHT  is:  Not  ordered 

THEN:  CptpointH  is  given  the  value:  no  points  awarded 

Rule  Number:  23 

IF:  Patient  order  for  tilt  test  is:  Tilt  test  less 

than  q4h 
THEN:  CptpointD  is  given  the  value:  no  points  auiarded 

Rule  Number:  24 

IF:  Patient  order  for  tilt  test  is:  Tilt  test  q4h 

or  more 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  25 

IF:  Patient  order  for  tilt  test  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  26 

IF:  Patient  order  for  post-op/post-partum/post-newborn 

vital  signs  is:  Post-op 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  27 

IF:  Patient  order  for  post-op/post-partum/post-newborn 

vital  signs  is:  Post-partum 
THEN:  CptpointD  is  given  the  value  CptpointD  -•■  6 

Rule  Number:  28 

IF:  Patient  order  for  post-op/post-partum/post-newborn 

vital  signs  is:  Post-newborn 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  29 

IF:  Patient  order  for  post-op/post-partum/post-newborn 

vital  signs  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  30 

IF:  Patient  order  for  intake  &  output  is:  Intake  & 

output  less  than  qBh  or  x  3 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  31 

IF:  Patient  order  for  intake  &  output  is:  Intake  & 

output  at  least  qBh  Cx  3D,  but  less  than  q4h  Cx  63 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 
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Rule  Number:  3B 

IF:  Patient  order  for  intake  &  output  is:  Intake  & 

output  q4h  or  X  6 
THEN:  Cptpointn  is  given  the  value  CptpointU  +  4 

Rule  Number:  33 

IF:  Patient  order  For  intake  8  output  is:  Intake  & 

output  qEh  or  x  IE 
THEN:  CptpointD  is  given  the  value  CptpointD  +  8 

Rule  Number:  34 

IF:  Patient  order  for  intake  S  output  is:  Intake  & 

output  qlh  or  x  24 
THEN:  CptpointD  is  given  the  value  CptpointD  +  16 

Rule  Number:  35 

IF:  Patient  order  for  intake  &  output  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  36 

IF:  Patient  order  for  circulation  checks  is:  Circulation 

checks  less  than  qSh  or  x  12 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  37 

IF:  Patient  order  for  circulation  checks  is:  Circulation 

checks  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  Cptpointi]  +  2 

Rule  Number:  38 

IF:  Patient  order  for  circulation  checks  is:  Circulation 

checks  qlh  or  x  24 
THEN:  CptpointD  is  given  the  value  Cptpoint!]  +  4 

Rule  Number:  39 

IF:  Patient  order  for  circulation  checks  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  40 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks  less 

than  q4h  or  x  6 
THEN:  Cptpoint3  is  given  the  value:  no  points  awarded 

Rule  Number:  41 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks 

q4h  or  X  6 
THEN:  CptpointD  is  given  the  value  CptpointJ  -♦■  3 
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Rule  Number:  4a 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks 

qSh  or  x  12 
THEN:  CptpointD  is  given  the  value  Cptpoint3  +  6 

Rule  Number:  43 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks 

qlh  or  X  E4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  44 

IF:  Patient  order  for  neuro  checks  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  45 

IF:  Patient  order  for  CUP  manual  readings  is:  CUP  manual 

readings  less  than  q2h  or  x  12 
THEN:  CptpointU  is  given  the  value:  no  points  aiuarded 

Rule  Number:  46 

IF:  Patient  order  for  CUP  manual  readings  is:  CUP  manual 

readings  q2h  or  x  12 
THEN:  Cptpoint]  is  given  the  value  CptpointD  +  2 

Rule  Number:  47 

IF:  Patient  order  for  CUP  manual  readings  is:  CUP  manual 

readings  qlh  or  x  24 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  48 

IF:  Patient  order  for  CUP  manual  readings  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  49 

IF:  Patient  order  for  ICP  manual  readings  is:  ICP  manual 

readings  less  than  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  50 

IF:  Patient  order  for  ICP  manual  readings  is:  ICP  manual 

readings  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  51 

IF:  Patient  order  for  ICP  manual  readings  is:  ICP  manual 

readings  qlh  or  x  24 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
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Rule  Number:  SB 

IF:  Patient  order  for  ICP  manual  readings  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  53 

IF:  Patient  order  for  fundus  checks  is:  Fundus  checks 

less  than  qSh  or  x  IB 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  54 

IF:  Patient  order  for  fundus  checks  is:  Fundus  checks 

qSh  or  x  IE 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  S 

Rule  Number:  55 

IF:  Patient  order  for  fundus  checks  is:  Fundus  checks 

qlh  or  X  S4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  56 

IF:  Patient  order  for  fundus  checks  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  paints  awarded 

Rule  Number:  57 

IF:  Patient  order  for  transcutaneous  monitor  is: 

transcutaneous  monitor 
THEN:  CptpointD  is  given  the  value  Cptpoint^  +  6 

Rule  Number:  5B 

IF:  Patient  order  for  transcutaneous  monitor  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  59 

IF:  Patient  order  for  an  A-line  set-up  is:  A-line  set-up 
THEN:  CptpointD  is  given  the  value  Cptpoint]  +  4 

Rule  Number:  60 

IF:  Patient  order  for  an  A-line  set-up  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  61 

IF:  Patient  order  for  an  ICP  monitor  set-up  is:  ICP 

monitor  set-up 
THEN:  CptpointD  is  given  the  value  Cptpoint]  +  4 
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Rule  Number:  62 

IF:  Patient  order  for  an  ICP  monitor  set-up  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  63 

IF:  Patient  order  For  Swan  Ganz  set-up  is:  Swan  Ganz 

set-up 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  64 

IF:  Patient  order  for  Swan  Ganz  set-up  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  65 

IF:  Patient  order  for  A-line  reading  is:  A-line  reading 

less  than  qEh  or  x  IB 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  66 

IF:  Patient  order  for  A-line  reading  is:  f=^-line  reading 

qSh  or  x  IE 
THEN:  CptpointD  is  given  the  value  CptpointD  -•■  2 

Rule  Number:  67 

IF:  Patient  order  for  A-line  reading  is:  A-line  reading 

qlh  or  X  24 
THEN:  CptpointD  is  given  the  value  Cptpoint3  +  4 

Rule  Number:  68 

IF:  Patient  order  for  A-line  reading  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  69 

IF:  Patient  order  for  ICP  monitor  reading  is:  ICP 

monitor  reading  less  than  q2h  or  x  12 
THEN:  CptpointU  is  given  the  value:  no  points  awarded 

Rule  Number:  70 

IF:  Patient  order  for  ICP  monitor  reading  is:  ICP 

monitor  reading  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  2 

Rule  Number:  71 

IF:  Patient  order  for  ICP  monitor  reading  is:  ICP 

monitor  reading  qlh  or  x  24 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  4 
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Rule  Number:  72 

IF:  Patient  order  for  ICP  monitor  reading  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  73 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 

luedge  reading  of  less  than  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  74 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 

wedge  reading  of  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  75 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 

wedge  reading  of  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  76 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 

wedge  reading  of  qlh  or  x  24 
THEN:  CptpointD  is  given  the  value  CptpointD  +  B 

Rule  Number:  77 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  Not 

ordered 
THEN:  Cptpointn  is  given  the  value;  no  points  awarded 

Rule  Number:  7B 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 

less  than  TID  or  x  3 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  79 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 

at  least  TID  Cx  3]  but  less  than  q4h  Cx  SI 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  2 

Rule  Number:  BO 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 

q4h  or  X  B 
THEN:  CptpointU  is  given  the  value  CptpointD  +  4 

Rule  Number:  Bl 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 

q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  CptpointD  +  B 
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Rule  Number:  BE 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 

qlh  or  X  S4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  16 

Rule  Number:  83 

IF:  Patient  order  for  cardiac  output  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  84 

IF:  Patient  order  for  f=^DL  is:  Infant/toddler  care 

C-<  5  years3 
THEN:  CptpointU  is  given  the  value  CptpointD  ■♦-  6 

Rule  Number:  85 

IF:  Patient  order  for  ADL  is:  Self/minimal  care  Cadult 

or  child  >  5  years3 
THEN:  CptpointU  is  given  the  value  CptpointD  +  E 

Rule  Number:  86 

IF:  Patient  order  for  ADL  is:  Assisted  care  C>  5  years] 

positions  self 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  6 

Rule  Number:  87 

IF:  Patient  order  for  ADL  is:  Complete  care  C>  5  yearsD 

assists  uith  positioning 
THEN:  Cptpoint]  is  given  the  value  CptpointD  +  14 

Rule  Number:  88 

IF:  Patient  order  for  ADL  is:  Total  care  C>  5  years] 

position  and  skin  care  qEh 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  3S 

Rule  Number:  83 

IF:  Patient  order  for  extra  linen  change  and  partial 
bath  is:  Extra  linen  and  partial  bath  less  than  Ex 
per  shift 
THEN:  Cptpoint]  is  given  the  value:  no  points  auarded 

Rule  Number:  30 

IF:  Patient  order  for  extra  linen  change  and  partial 

bath  is:  Extra  linen  and  partial  bath  Ex  per  shift 
THEN:  CptpointJ  is  given  the  value  Cptpoint]  +  4 

Rule  Number:  31 

IF:  Patient  order  for  extra  linen  change  and  partial 

bath  is:  Extra  linen  and  partial  bath  4x  per  shift 
THEN:  Cptpoint]  is  given  the  value  Cptpoint^  +  8 
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Rule  Number:  9a 

IF:  Patient  order  for  extra  linen  change  and  partial 

bath  is:  Extra  linen  and  partial  bath  8x  per  shift 

THEN:  CptpointU  is  given  the  value  CptpointD  +  16 

Rule  Number:  93 

IF:  Patient  order  for  extra  linen  change  and  partial 

bath  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  94 

IF:  Patient  order  for  turning  frame  is:  Turning  frame 

less  than  qSh 
THEN:  CptpointD  is  given  the  value:  no  paints  awarded 

Rule  Number:  95 

IF:  Patient  order  for  turning  frame  is:  Turning  frame 

qSh  or  x  IS 
THEN:  CptpointD  is  given  the  value  CptpointD  +  14 

Rule  Number:  9E 

IF:  Patient  order  for  turning  frame  is:  Turning  frame 

qlh  or  X  E4 
THEN:  CptpointD  is  given  the  value  CptpointI]  +  28 

Rule  Number:  97 

IF:  Patient  order  for  turning  frame  is:  Not  ordered 
THEN:  CptpointI  is  given  the  value:  no  points  awarded 

Rule  Number:  98 

IF:  Patient  order  for  peds  recreation/observation  is: 
Peds  recreation/observation  -  0-12  yrs  Cexc  NBND 
THEN:  CptpointI]  is  given  the  value  CptpointD  +  8 

Rule  Number:  99 

IF:  Patient  order  for  peds  recreation/observation  is: 

Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  100 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  less  than  1  bag  per  24  hours 
THEN:  CptpointU  is  given  the  value:  no  points  awarded 

Rule  Number:  101 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  1  bag  per  24  hours 
THEN:  CptpointU  is  given  the  value  CptpointU  +  2 
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Rule  Number:  lOB 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  2  bog  per  24  hours 
THEN:  CptpointD  is  given  the  value  CptpointD  -»■  4 

Rule  Number:  103 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  3  bag  per  24  hours 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  B 

Rule  Number:  104 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  4  bag  per  24  hours 
THEN:  CptpointD  is  given  the  value  CptpointD  +  8 

Rule  Number:  105 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  S  bag  per  24  hours 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  12 

Rule  Number:  106 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  12  bag  per  24  hours 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 

Rule  Number:  107 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

continuous  —  24  bag  per  24  hours 
THEN:  Cptpoint]  is  given  the  value  CptpointJ  +  48 

Rule  Number:  108 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

CbolusD  less  than  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value:  no  paints  auiarded 

Rule  Number:  109 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

CbolusD  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  5 

Rule  Number:  110 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

CbolusD  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  CptpointD  +  10 

Rule  Number:  111 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 

CbolusD  qlh  or  x  24 
THEN:  CptpointD  is  given  the  value  CptpointD  +  20 
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Rule  Number:  IIB 

IF:  Patient  order  for  tube  feedings  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  aujarded 

Rule  Number:  113 

IF:  Patient  order  for  spoon  feedings  is:  Adult  meals 

>  5  years  Cspoon  feed  x  3D 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  6 

Rule  Number:  114 

IF:  Patient  order  for  spoon  feedings  is:  Child  meals 

"<  5  years  Cspoon  feed  x  3D 
THEN:  CptpointD  is  given  the  value  CptpointD  +  10 

Rule  Number:  115 

IF:  Patient  order  for  spoon  feedings  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  116 

IF:  Patient  order  for  infant/neonate  bottle  feeding  is: 

Infant/neonate  bottle  x  1  feeding 
THEN:  CptpointD  is  given  the  value  CptpointD  ■•-  E 

Rule  Number:  117 

IF:  Patient  order  for  infant/neonate  bottle  feeding  is: 

Infant/neonate  bottle  q4h  or  x  B 
THEN:  CptpointD  is  given  the  value  CptpointD  ■•-  12 

Rule  Number:  118 

IF:  Patient  order  for  infant/neonate  bottle  feeding  is: 

Infant/neonate  bottle  qSh  or  x  IE 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E4 

Rule  Number:  119 

IF:  Patient  order  for  infant/neonate  bottle  feeding  is: 

Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  oujarded 

Rule  Number:  ISO 

IF:  Patient  order  for  lU  insertion  is:  lU  insertion 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  lEl 

IF:  Patient  order  for  lU  insertion  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  aiuarded 

Rule  Number:  lES 

IF:  Patient  order  for  N6  insertion  is:  NG  insertion 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 
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Rule  Number:  1S3 

IF:  Patient  order  for  NG  insertion  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  124 

IF:  Patient  order  for  foley  insertion/straight 

catheterization  is:  Foley  insertion 
THEN:  CptpointD  is  given  the  value  CptpointD  ■»-  2 

Rule  Number:  125 

IF:  Patient  order  for  foley  insertion/straight 

catheterization  is:  straight  catheterizat  of  less 

than  3 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  126 

IF:  Patient  order  for  foley  insertion/straight 

catheterization  is:  straight  catheterizat  of  4  or 
more 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  127 

IF:  Patient  order  for  foley  insertion/straight 

catheterization  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  12B 

IF:  Patient  order  for  EK6  rhythm  strip  is:  EKG  rhythm 

strip 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  129 

IF:  Patient  order  for  EKG  rhythm  strip  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  130 

IF:  Patient  order  for  surgical  prep  is:  Surgical  prep 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  131 

IF:  Patient  order  for  surgical  prep  is:  Not  ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 

Rule  Number:  132 

IF:  Patient  order  for  enemas  is:  Enemas 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  133 

IF:  Patient  order  for  enemas  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
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Rule  Number:  134 

IF:  Patient  order  for  ace  wrap/elastic  stockings  is:  Ace 

wrap 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  135 

IF;  Patient  order  for  ace  wrap/elastic  stockings  is: 

Elastic  stockings 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  136 

IF:  Patient  order  for  ace  urap/elastic  stockings  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  137 

IF:  Patient  order  for  dressing  change  is:  Simple 

dressing  change  less  than  x  2  or  BID 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  138 

IF:  Patient  order  for  dressing  change  is:  Simple 

dressing  change  x  2  or  BID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  139 

IF:  Patient  order  for  dressing  change  iS:  Simple 

dressing  change  x  3  or  TID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  3 

Rule  Number:  140 

IF:  Patient  order  for  dressing  change  is:  Simple 

dressing  change  x  4  or  QID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  141 

IF:  Patient  order  for  dressing  change  is:  Simple 

dressing  change  x  6  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  142 

IF:  Patient  order  for  dressing  change  is:  Simple 

dressing  change  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  143 

IF:  Patient  order  for  dressing  change  is:  Simple 

dressing  change  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 
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Rule  Number:  144 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  1 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  4 

Rule  Number:  145 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  2  or  qlEh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  8 

Rule  Number:  146 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  3  or  TID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  147 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  4  or  QID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  IB 

Rule  Number:  14B 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  B  or  q4h 
THEN:  CptpointJ  is  given  the  value  CptpointJ  +  24 

Rule  Number:  149 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  48 

Rule  Number:  150 

IF:  Patient  order  for  dressing  change  is:  Complex 

dressing  change  x  24  or  qlh 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  9B 

Rule  Number:  151 

IF:  Patient  order  for  dressing  change  is:  Not  ordered 
THEN:  Cptpoint]  is  given  the  value:  no  points  aujarded 

Rule  Number:  152 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 

care  less  than  x  2  or  BID 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  153 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 

care  x  2  or  BID 
THEN:  Cptpointn  is  given  the  value  CptpointJ  +  2 
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Rule  Number:  154 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 

care  x  3  or  TID 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  3 

Rule  Number:  155 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 

care  x  4  or  QID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  15B 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 

care  x  6  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  6 

Rule  Number:  157 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 

care  x  IE  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  IS 

Rule  Number:  15a 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tuba 

care  x  B4  or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 

Rule  Number:  159 

IF:  Patient  order  for  tube  care  Cnot  trach]  is:  Not 

ordered 
THEN:  Cptpointn  is  given  the  value:  no  points  awarded 

Rule  Number:  160 

IF:  Patient  order  for  Foley  care  is:  Foley  care  less 

than  X  2  or  BID 
THEN:  CptpointD  is  given  the  value:  no  points  aiuarded 

Rule  Number:  161 

IF:  Patient  order  for  Foley  care  is:  Foley  care  x  2  or 

BID 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  2 

Rule  Number:  162 

IF:  Patient  order  for  Foley  care  is:  Foley  care  x  3  or 

TID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  3 

Rule  Number:  163 

IF:  Patient  order  for  Foley  care  is:  Foley  care  x  4  or 

QID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
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Rule  Number:  164 

IF:  Patient  order  far  Foley  care  is:  Foley  care  x  6  or 

q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  165 

IF:  Patient  order  for  Foley  care  is:  Foley  care  x  IS  or 

qEh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  IS 

Rule  Number:  165 

IF:  Patient  order  for  Foley  care  is:  Foley  care  x  S4  or 

qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  S4 

Rule  Number:  167 

IF:  Patient  order  for  Foley  care  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  158 

IF:  Patient  order  for  S  &  A  is:  S  &  A  x  1  or  QD 
THEN:  CroupointD  is  given  the  value  CroupointD  +  1 

Rule  Number:  169 

IF:  Patient  order  for  S  &  A  is:  S  &  A  x  S  or  BID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  S 

Rule  Number:  170 

IF:  Patient  order  for  S  &  A  is:  5  &  A  x  3  or  TID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  3 

Rule  Number:  171 

IF:  Patient  order  for  5  &  A  is:  S  &  A  x  4  or  QID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  4 

Rule  Number:  17S 

IF:  Patient  order  for  S  &  A  is:  S  &  A  x  6  or  q4h 
THEN:  CroupointD  is  given  the  value  Croupoint3  +  6 

Rule  Number:  173 

IF:  Patient  order  for  S  &  A  is:  S  &  A  x  IS  or  qSh 
THEN:  CroupointJ  is  given  the  value  CroupointD  +  15 

Rule  Number:  174 

IF:  Patient  order  for  S  &  A  is:  S  a  A  x  S4  or  qlh 
THEN:  CroupointD  is  given  the  value  CroupointU  +  S4 

Rule  Number:  175 

IF:  Patient  order  for  S  &  A  is:  Not  ordered 

THEN:  CroupointU  is  given  the  value:  no  points  awarded 
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Rule  Number:  176 

IF:  Patient  order  for  Sp  6r  is:  Sp  Gr  x  1  or  QD 
THEN:  CroupointD  is  given  the  value  CroupointD  +  1 

Rule  Number:  177 

IF:  Patient  order  for  Sp  6r  is:  Sp  Gr  x  2  or  BID 
THEN:  CroupointU  is  given  the  value  CroupointD  +  2 

Rule  Number:  17B 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  3  or  TID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  3 

Rule  Number:  179 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  4  or  QID 
THEN:  CroupointD  is  given  the  value  CroupointU  +  4 

Rule  Number:  ISO 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  6  or  q4h 
THEN:  CroupointU  is  given  the  value  CroupointU  +  6 

Rule  Number:  181 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  12  or  q2h 
THEN:  CroupointD  is  given  the  value  CroupointJ  +  12 

Rule  Number:  182 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  24  or  qlh 
THEN:  CroupointD  is  given  the  value  CroupointD  +  24 

Rule  Number:  183 

IF:  Patient  order  for  Sp  Gr  is:  Not  ordered 

THEN:  CroupointD  is  given  the  value:  no  points  awarded 

Rule  Number:  184 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  1 

or  QD 
THEN:  CroupointU  is  given  the  value  CroupointD  +  1 

Rule  Number:  185 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  2 

or  BID 
THEN:  CroupointU  is  given  the  value  CroupointU  -♦-  2 

Rule  Number:  186 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  3 

or  TID 
THEN:  CroupointU  is  given  the  value  CroupointU  +  3 

Rule  Number:  187 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  4 
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or  QID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  4 

Rule  Number:  IBB 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  B 

or  q4h 
THEN:  CroupointD  is  given  the  value  CroupointJ  +  B 

Rule  Number:  IBB 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  12 

or  qEh 
THEN:  CroupointD  is  given  the  value  CroupointD  +  IE 

Rule  Number:  190 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  24 

or  qlh 
THEN:  CroupointD  is  given  the  value  CroupointH  +  24 

Rule  Number:  191 

IF:  Patient  order  for  Guiac  stools  is:  Not  ordered 
THEN:  CroupointD  is  given  the  value:  no  points  awarded 

Rule  Number:  192 

IF:  Patient  order  for  spin  HCT  is:  Bpin  HCT  x  1  or  QD 
THEN:  CroupointJ  is  given  the  value  CroupointJ  ■*■    1 

Rule  Number:  193 

IF:  Patient  order  for  spin  HCT  is:  Spin  HCT  x  2  or  BID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  2 

Rule  Number:  194 

IF:  Patient  order  for  spin  HCT  is:  Spin  HCT  x  3  or  TID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  3 

Rule  Number:  195 

IF:  Patient  order  for  spin  HCT  is:  Spin  HCT  x  4  or  QID 
THEN:  CroupointD  is  given  the  value  CroupointD  +  4 

Rule  Number:  196 

IF:  Patient  order  for  spin  HCT  is:  Spin  HCT  x  6  or  q4h 
THEN:  CroupointD  is  given  the  value  CroupointD  +  6 

Rule  Number:  197 

IF:  Patient  order  for  spin  HCT  is:  Spin  HCT  x  12  or  q2h 
THEN:  CroupointD  is  given  the  value  CroupointD  +  12 

Rule  Number:  19B 

IF:  Patient  order  for  spin  HCT  is:  Spin  HCT  x  24  or  qlh 
THEN:  CroupointD  is  given  the  value  CroupointD  +  24 
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Rule  Number:  199 

IF:  Patient  order  for  spin  HCT  is:  Not  ordered 

THEN:  CroupointD  is  given  the  value:  no  points  awarded 

Rule  Number:  EOO 

IF:  Patient  order  For  lab  studies  is:  Lab  studies  less 

than  X  6 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  201 

IF:  Patient  order  for  lab  studies  is:  Lab  studies  x  6  or 

q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  -♦-  2 

Rule  Number:  EOE 

IF:  Patient  order  for  lab  studies  is:  Lab  studies  x  12 

or  q2h 
THEN:  CptpointH  is  given  the  value  CptpointD  +  4 

Rule  Number:  203 

IF:  Patient  order  for  lab  studies  is:  Lab  studies  x  24 

or  qlh 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  8 

Rule  Number:  204 

IF:  Patient  order  for  lab  studies  is:  Not  ordered 
THEN:  Cptpoint3  is  given  the  value:  no  points  awarded 

Rule  Number:  205 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks,  less 

than  X  3 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  206 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks,  at 

least  X  3,  but  less  than  x  B 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  207 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  208 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks  x  12 
THEN:  CptpointD  is  given  the  value  Cptpoint3  +  8 

Rule  Number:  209 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks  x  24 
THEN:  CptpointJ  is  given  the  value  CptpointD  ■♦-  16 
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Rule  Number:  SIO 

IF:  Patient  order  for  ABG  sticks  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  Ell 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 

less  than  x  3 
THEN:  Cptpoint3  is  given  the  value:  no  points  aujarded 

Rule  Number:  E12 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 

at  least  x  3  but  less  than  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  E13 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 

X  6 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  4 

Rule  Number:  E14 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 

X  IE 
THEN:  CptpointD  is  given  the  value  CptpointD  +  8 

Rule  Number:  E15 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 

X  E4 
THEN:  CptpointD  is  given  the  value  CptpointD  -♦•  IB 

Rule  Number:  ElE 

IF:  Patient  order  for  blood  culttures  is:  Not  ordered 
THEN:  CptpointU  is  given  the  value:  no  points  auarded 

Rule  Number:  E17 

IF:  Patient  order  for  medications  is:  riedications  less 

than  qBh  Cexclude  lUD 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  SIB 

IF:  Patient  order  for  medications  is:  riedications  q3h  - 

qBh  Cexclude  lU]  -  up  to  IE  trips 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  E13 

IF:  Patient  order  for  medications  is:  Medications  qEh  or 

more  Cexclude  lUD  -  >  IE  trips 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
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Rule  Number:  EEO 

IF:  Patient  order  for  medications  is:  Not  ordered 
THEN:  CptpointI]  is  given  the  value:  no  points  auarded 

Rule  Number:  EEl 

IF:  Patient  order  for  irrigations  is:  Irrigations  x  4 

CQIDD  or  less 
THEN:  Cptpoint]  is  given  the  value  CptpointD  +  E 

Rule  Number:  SEE 

IF:  Patient  order  for  irrigations  is:  Irrigations  x  B 

or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  3 

Rule  Number:  SS3 

IF:  Patient  order  for  irrigations  is:  Irrigations  x  IE 

or  qEh 
THEN:  CptpointD  is  given  the  value  CptpointU  -♦-  6 

Rule  Number:  SE4 

IF:  Patient  order  far  irrigations  is:  Irrigations  x  E4 

or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  IE 

Rule  Number:  SE5 

IF:  Patient  order  for  irrigations  is:  Not  ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 

Rule  Number:  EEB 

IF:  Patient  order  for  instillations  is:  Instillations 

x  4  CQIDD  or  less 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  EE7 

IF:  Patient  order  for  instillations  is:  Instillations 

X  6  or  q4h 
THEN:  CptpointH  is  given  the  value  CptpointD  +  3 

Rule  Number:  EEB 

IF:  Patient  order  for  instillations  is:  Instillations 

X  IE  or  qEh 
THEN:  CptpointI  is  given  the  value  CptpointD  +  B 

Rule  Number:  ERS 

IF:  Patient  order  for  instillations  is:  Instillations 

X  E4  or  qlh 
THEN:  CptpointI  is  given  the  value  CptpointD  -•-  IE 
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Rule  Number:  E30 

IF:  Patient  order  for  instillations  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  231 

IF:  Patient  order  for  restraints  is:  E   point 
THEN:  CptpointD  is  given  the  value  C   pointD  +  2 

Rule  Number:  23E 

IF:  Patient  order  for  restraints  is:  4  point 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  233 

IF:  Patient  order  for  restraints  is:  Posey 

THEN:  CptpointD  is  given  the  value  CptpointD  ■♦■  2 

Rule  Number:  234 

IF:  Patient  order  for  restraints  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  235 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  chair  less  than  x  3 
THEN:  Cptpoint]  is  given  the  value:  no  points  aujarded 

Rule  Number:  236 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  less  than  x  3 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  237 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  by  at  least  3  but  less  than  6 
THEN:  CptpointD  is  given  the  value  CptpointD  ■•■  2 

Rule  Number:  23B 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  x  6  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  239 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  B 

Rule  Number:  240 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  15 
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Rule  Number:  241 

IF:  Patient  order  for  assist  to  chair/stretcher  is; 
Assist  to  chair  at  least  x  3  but  less  than  x  6 
THEN:  Cptpointn  is  given  the  value  Cptpoint3  +  2 

Rule  Number:  242 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  chair  x  B  or  q4h 
THEN:  Cptpoint;]  is  given  the  value  CptpointD  +  4 

Rule  Number:  243 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  chair  x  12  or  q2h 
THEN:  Cptpoint;]  is  given  the  value  Cptpoint3  +  8 

Rule  Number:  244 

IF:  Patient  order  for  assist  to  chair/stretcher  is; 

Assist  to  chair  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  Cptpoint^  +  16 

Rule  Number:  245 

IF:  Patient  order  for  assist  to  chair/stretcher  is; 

Ambulate  with  assistance  x  1 
THEN:  CptpointD  is  given  the  value  Cptpoint]  +  2 

Rule  Number:  245 

IF:  Patient  order  for  assist  to  chair/stretcher  is; 

Ambulate  with  assistance  x  2 
THEN:  CptpointD  is  given  the  value  Cptpoint^  +  4 

Rule  Number:  247 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Ambulate  ujith  assistance  x  3 
THEN:  CptpointD  is  given  the  value  CptpointD  +  5 

Rule  Number:  248 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Ambulate  with  assistance  x  4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  8 

Rule  Number:  249 

IF:  Patient  order  for  assist  to  chair/stretcher  is; 

Ambulate  ujith  assistance  x  5 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  250 

IF:  Patient  order  for  assist  to  chair/stretcher  is; 

Ambulate  uith  assistance  x  12 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 


13^ 


Rule  Number:  251 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Ambulate  with  assistance  x  E^ 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  48 

Rule  Number:  252 

IF:  Patient  order  for  assist  to  chair/stretcher  is:  Not 

ordered 
THEN:  CptpointU  is  given  the  value:  no  points  aiuarded 

Rule  Number:  253 

IF:  Patient  order  for  infant  circumcision  care  is: 

Infant  circumcision  care 
THEN:  Cptpoint!]  is  given  the  value  CptpointD  +  2 

Rule  Number:  254 

IF:  Patient  order  for  infant  circumcision  care  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  aiuarded 

Rule  Number:  255 

IF:  Patient  order  for  phototherapy  is:  Phototherapy 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  256 

IF:  Patient  order  for  phototherapy  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  257 

IF:  Patient  order  for  isolation  is:  Isolation  Cchange 

gown  and  gloves  less  than  x  BD 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  258 

IF:  Patient  order  for  isolation  is:  Isolation  Cchange 

gotun  and  gloves  x  8  or  moreD 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  259 

IF:  Patient  order  for  isolation  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  260 

IF:  Patient  order  for  accompany  patient  off  ward  is: 
Accompany  patient  off  ward  for  less  than  15  min 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  261 

IF:  Patient  order  for  accompany  patient  off  ward  is: 
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Accompany  patient  off  uiard  for  15  to  30  min 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  S 

Rule  Number:  EBE 

IF:  Patient  order  for  accompany  patient  off  ward  is: 

Accompany  patient  off  ward  for  greater  than  30  min 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  263 

IF:  Patient  order  for  accompany  patient  off  ward  is:  Not 

ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 

Rule  Number:  264 

IF:  Patient  order  for  other  activities  is:  Other 

activities  requiring  less  than  15  minutes 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  265 

IF:  Patient  order  for  other  activities  is:  Other 

activities  requiring  15  to  30  minutes 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  266 

IF:  Patient  order  for  other  activities  is:  Other 

activities  requiring  30  min  to  1  hour 
THEN:  Cptpoint:  is  given  the  value  CptpointH  +  4 

Rule  Number:  267 

IF:  Patient  order  for  other  activities  is:  Special 

procedures  >  1  hr  <  2  hr  [requiring  continuous  staff 
attendance] 
THEN:  Cptpoint2  is  given  the  value  CptpointD  +  B 

Rule  Number:  268 

IF:  Patient  orr^r  for  other  activities  is:  Not  ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 

Rule  Number:  269 

IF:  Patient  order  for  chest  tube  insertion  is:  Chest 

tube  insertion 
THEN:  Cptpoint]  is  given  the  value  CptpointD  +  4 

Rule  Number:  270 

IF:  Patient  order  for  chest  tube  insertion  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  271 

IF:  Patient  order  for  lumbar  puncture  is:  Lumbar 
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puncture 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  4 

Rule  Number:  272 

IF:  Patient  order  for  lumbar  puncture  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  273 

IF:  Patient  order  for  thoracentesis  is:  Thoracentesis 

ordered 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  274 

IF:  Patient  order  for  thoracentesis  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  275 

IF:  Patient  order  for  paracentesis  is:  Paracentesis 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  276 

IF:  Patient  order  for  paracentesis  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  paints  awarded 

Rule  Number:  277 

IF:  Patient  order  for  range  of  motion  is:  Range  of 

motion  exercises  less  than  x  3  or  TID 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  278 

IF:  Patient  order  for  range  of  motion  is:  Range  of 

motion  exercises  at  least  x  3  but  less  than  x  B 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  4 

Rule  Number:  279 

IF:  Patient  order  for  range  of  motion  is:  Range  of 

motion  exercises  x  B  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  B 

Rule  Number:  280 

IF:  Patient  order  for  range  of  motion  is:  Range  of 

motion  exercises  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  Cptpoint3  +  16 

Rule  Number:  281 

IF:  Patient  order  for  range  of  motion  is:  Range  of 

motion  exercises  x  24  or  qlh 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  32 
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Rule  Number:  EBB 

IF:  Patient  order  for  range  of  motion  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  aiuarded 

Rule  Number:  2B3 

IF:  Patient  order  to  transfer  in-house  or  new  admission 

is:  Transfer  in-house  Cassess  and  orient] 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  4 

Rule  Number:  EB4 

IF:  Patient  order  to  transfer  in-house  or  new  admission 

is:  New  admission  Cassess  and  orient] 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  EBB 

IF:  Patient  order  to  transfer  in-house  or  new  admission 

is:  Not  ordered 
THEN:  Cptpoint^  is  given  the  value:  no  points  awarded 

Rule  Number:  EBB 

IF:  Patient  order  for  OE  therapy  or  oxyhood  is:  Oxygen 

therapy 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  EB? 

IF:  Patient  order  for  OE  therapy  or  oxyhood  is:  Oxyhood 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  EBB 

IF:  Patient  order  for  OE  therapy  or  oxyhood  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  EBB 

IF:  Patient  order  for  incentive  spirometer  is:  Incentive 

spirometer  less  than  q4h 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  E90 

IF:  Patient  order  for  incentive  spirometer  is:  Incentive 

spirometer  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E 

Rule  Number:  S91 

IF:  Patient  order  for  incentive  spirometer  is:  Incentive 

spirometer  qEh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  E9E 

IF:  Patient  order  for  incentive  spirometer  is:  Incentive 
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spirometer  qlh 
THEN:  CptpointJ  is  given  the  value  CptpointD  -^  B 

Rule  Number:  E93 

IF:  Patient  order  for  incentive  spirometer  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  E94 

IF:  Patient  order  for  C&DB  is:  C&DB  less  than  q4h 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  295 

IF:  Patient  order  for  C&DB  is:  C&DB  q4h 

THEN:  Cptpoint]  is  given  the  value  CptpointD  +  E 

Rule  Number:  296 

IF:  Patient  order  for  C&DB  is:  C&DB  q2h 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  297 

IF:  Patient  order  for  C&DB  is:  C&DB  qlh 

THEN:  CptpointD  is  given  the  value  CptpointD  +  B 

Rule  Number:  298 

IF:  Patient  order  for  C8DB  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  299 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 

maximist  less  than  BID  or  x  2 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  300 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 

maximist  BID  or  x  2 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  301 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 

maximist  TID  or  x  3 
THEN:  CptpointD  is  given  the  value  CptpointD  +  3 

Rule  Number:  302 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 

maximist  QID  or  x  4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  303 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 
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maximist  q4h  or  x  B 
THEN:  CptpointU  is  given  the  value  CptpointD  ■•-  6 

Rule  Number:  304 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 

maximist  qSh  or  x  IE 
THEN:  Cptpoint!]  is  given  the  value  Cptpoint3  +  IS 

Rule  Number:  305 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 

maximist  qlh  or  x  E4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  E4 

Rule  Number:  30B 

IF:  Patient  order  for  IPPB  or  maximist  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  307 

IF:  Patient  order  for  croup  tent  or  mist  tent  is:  Croup 

tent 
THEN:  CptpointD  is  given  the  value  CptpointD  +  8 

Rule  Number:  308 

IF:  Patient  order  for  croup  tent  or  mist  tent  is:  (list 

tent 
THEN:  CptpointI]  is  given  the  value  CptpointD  +  8 

Rule  Number:  309 

IF:  Patient  order  for  croup  tent  or  mist  tent  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  310 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 

pulmonary  therapy  less  than  BID  or  x  E 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  311 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 

pulmonary  therapy  BID  or  x  E 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  S 

Rule  Number:  31S 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 

pulmonary  therapy  TID  or  x  3 
THEN:  CptpointD  is  given  the  value  Cptpoint^  +  3 

Rule  Number:  313 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 
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pulmonary  therapy  QID  or  x  4 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  314 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 

pulmonary  therapy  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  315 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 

pulmonary  therapy  qSh  or  x  IE 
THEN:  CptpointD  is  given  the  value  CptpointD  +  IB 

Rule  Number:  316 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 

pulmonary  therapy  qlh  or  x  24 
THEN:  Cptpoint]  is  given  the  value  CptpointJ  +  24 

Rule  Number:  317 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Not 

ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  auarded 

Rule  Number:  318 

IF:  Patient  order  for  suctioning  is:  Suctioning  less 

than  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  313 

IF:  Patient  order  for  suctioning  is:  Suctioning  q4h  or 

X  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  320 

IF:  Patient  order  for  suctioning  is:  Suctioning  q2h  or 

X  12 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  4 

Rule  Number:  321 

IF:  Patient  order  for  suctioning  is:  Suctioning  qlh  or 

X  24 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  8 

Rule  Number:  322 

IF:  Patient  order  for  suctioning  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  323 

IF:  Patient  order  for  trach  care  is:  Trach  care  less 
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than  X  3  or  TID 
THEN:  Cp-^aoint^  is  given  the  value:  no  points  aujarded 

Rule  Number:  324 

IF:  Patient  order  for  trach  care  is:  Trach  care  at  least 

TID  Cor  X  3D  but  less  than  q4h  Cx  63 
THEN:  CptpointH  is  given  the  value  CptpointD  +  4 

Rule  Number:  325 

IF:  Patient  order  for  trach  care  is:  Trach  care  q4h  or 

X  B 
THEN:  CptpointD  is  given  the  value  CptpointJ  +  8 

Rule  Number:  3EB 

IF:  Patient  order  for  trach  care  is:  Trach  care  qEh  or 

X  12 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  IB 

Rule  Number:  327 

IF:  Patient  order  for  trach  care  is:  Trach  care  qlh  or 

X  24 
THEN:  CptpointJ  is  given  the  value  CptpointJ  +  32 

Rule  Number:  32B 

IF:  Patient  order  for  trach  care  is:  Not  ordered 
THEN:  CptpointH  is  given  the  value:  no  points  awarded 

Rule  Number:  329 

IF:  Patient  order  for  ventilator  is:  Uentilator 
THEN:  CptpointU  is  given  the  value  Cptpoint]  +  10 

Rule  Number:  330 

IF:  Patient  order  for  ventilator  is:  Not  ordered 
THEN:  CptpointU  is  given  the  value:  no  points  awarded 

Rule  Number:  331 

IF:  Patient  order  for  hanging  lU  bottles  is:  KUD  Cchange 

bottle  BID  or  lessD 
THEN:  CptpointD  is  given  the  value  CptpointD  -♦■  4 

Rule  Number:  332 

IF:  Patient  order  for  hanging  lU  bottles  is:  Simple 

Cchange  bottle  TID  or  QIDD 
THEN:  CptpointD  is  given  the  value  Cptpoint3  +  B 

Rule  Number:  333 

IF:  Patient  order  for  hanging  lU  bottles  is:  Complex 
Cchange  bottle  q4h  or  more,  two  or  more  sites,  or 
multilumen  tube] 
THEN:  CptpointJ  is  given  the  value  CptpointD  +  B 
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Rule  Number:  334 

IF:  Patient  order  for  hanging  lU  bottles  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  335 

IF:  Patient  order  for  heparin  lock  or  Broviac  cathether 

is:  Heparin  lock 
THEN:  CptpointD  is  given  the  value  Cptpoint3  +  4 

Rule  Number:  33B 

IF:  Patient  order  for  heparin  lock  or  Broviac  cathether 

is:  Broviac  catheter 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  337 

IF:  Patient  order  for  heparin  lock  or  Broviac  cathether 

is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  338 

IF:  Patient  order  for  lU  medications  is:  lU  medications 

of  less  than  qBh  or  x  3 
THEN:  CptpointH  is  given  the  value:  no  points  awarded 

Rule  Number:  339 

IF:  Patient  order  for  lU  medications  is:  lU  medications 

of  qBh  or  X  3 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  340 

IF:  Patient  order  for  lU  medications  is:  lU  medications 

of  qBh  or  X  4 
THEN:  Cptpointn  is  given  the  value  CptpointD  +  3 

Rule  Number:  341 

IF:  Patient  order  for  lU  medications  is:  lU  medications 

of  q4h  or  X  B 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  34E 

IF:  Patient  order  for  lU  medications  is:  lU  medications 

of  q2h  or  x  IE 
THEN:  CptpointD  is  given  the  value  CptpointD  +  B 

Rule  Number:  343 

IF:  Patient  order  for  lU  medications  is:  lU  medications 

of  qlh  or  x  24 
THEN:  Cptpoint3  is  given  the  value  CptpointD  +  16 
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Rule  Number:  344 

IF:  Patient  order  for  lU  medications  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  345 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  1  unit 
THEN:  CptpointH  is  given  the  value  CptpointD  +  2 

Rule  Number:  34B 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  B  unit 
THEN:  CptpointD  is  given  the  value  CptpointU  +  4 

Rule  Number:  347 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  3  unit 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  348 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  4  unit 
THEN:  CptpointU  is  given  the  value  CptpointD  +  8 

Rule  Number:  349 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  6  unit 
THEN:  CptpointD  is  given  the  value  CptpointD  +  IE 

Rule  Number:  350 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  IB  unit 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 

Rule  Number:  351 

IF:  Patient  order  for  blood  products  is:  Blood  products 

X  24  unit 
THEN:  CptpointD  is  given  the  value  CptpointD  +  48 

Rule  Number:  352 

IF:  Patient  order  for  blood  products  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  aiuarded 

Rule  Number:  353 

IF:  Patient  order  for  group  teaching  is:  Group  teaching 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  354 

IF:  Patient  order  for  group  teaching  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 
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Rule  Number:  355 

IF:  Patient  order  for  preoperative  teaching  is: 

Preoperative  teaching 
THEN:  CptpointD  is  given  the  value  CptpointD  +   4 

Rule  Number:  356 

IF:  Patient  order  for  preoperative  teaching  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  aujorded 

Rule  Number:  357 

IF:  Patient  order  for  structured  teaching  is:  Structured 
teaching  [i.e.  diabetic,  cardiac,  colostomy  care, 
post  partum  first  E4  hr ,  neiuborn  care,  discharge] 

THEN:  CptpointJ  is  given  the  value  CptpointD  +  4 

Rule  Number:  358 

IF:  Patient  order  for  structured  teaching  is:  Not 

ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  359 

IF:  Patient  order  for  emotional  support  is:  Patient/ 
family  support  Ci.e.  anxiety,  denial,  lonliness, 
etc .  3 
THEN:  Cemopoint]  is  given  the  value  CemopointD  +  4 

Rule  Number:  360 

IF:  Patient  order  for  emotional  support  is:  Not  ordered 
THEN:  CemopointD  is  given  the  value:  no  points  awarded 

Rule  Number:  361 

IF:  Patient  order  for  modification  of  lifestyle  is: 
Emotional  support  for  modification  of  lifestyle 
Ci.e.  new  prothesis,  body  image,  behavior 
modification,  etc.] 
THEN:  CemopointJ  is  given  the  value  CemopointD  +  4 

Rule  Number:  36B 

IF:  Patient  order  for  modification  of  lifestyle  is:  Not 

ordered 
THEN:  CemopointD  is  given  the  value:  no  points  awarded 

Rule  Number:  363 

IF:  Patient  order  for  sensory  deprivation  is:  Emotional 
support  for  sensory  deprivation  Ci.e.  retarded, 
blind,  deaf,  language  barrier,  bilateral  eye 
patches,  confused,  combative,  etc.] 

THEN:  CemopointD  is  given  the  value  CemopointJ  +  5 
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Rule  Number:  364 

IF:  Patient  order  for  sensory  deprivation  is:  Not 

ordered 
THEN:  CemopointD  is  given  the  value:  no  points  awarded 

Rule  Number:  3B5 

IF:  Patient  order  for  cardiac  monitor  is:  Cardiac 

monitor 
THEN:  Cmonpoint3  is  given  the  value  CmonpointJ  +  B 

Rule  Number:  366 

IF:  Patient  order  for  cardiac  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  auiarded 

Rule  Number:  367 

IF:  Patient  order  for  apnea  monitor  is:  Apnea  monitor 
THEN:  CmonpointD  is  given  the  value  CmonpointD  +  6 

Rule  Number:  36B 

IF:  Patient  order  for  apnea  monitor  is:  Not  ordered 
THEN:  CmonpointH  is  given  the  value:  no  points  auarded 

Rule  Number:  369 

IF:  Patient  order  for  temp  monitor  is:  Temp  monitor 
THEN:  Cmonpointn  is  given  the  value  CmonpointD  +  6 

Rule  Number:  370 

IF:  Patient  order  for  temp  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  371 

IF:  Patient  order  for  pressure  monitor  is:  Pressure 

monitor 
THEN:  CmonpointJ  is  given  the  value  CmonpointD  ■♦-  B 

Rule  Number:  37S 

IF:  Patient  order  for  pressure  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  373 

IF:  Cmonpoint2  >  0 

THEN:  CptpointD  is  given  the  value  CptpointJ  +  6 

Rule  Number:  374 

IF:  CroupointD  >  5 

THEN:  CptpointD  is  given  the  value  CptpointD  -•■ 
CroupointJ 

Rule  Number:  375 

IF:  Cemopoint2  >  0  and  CemopointD  <  11 
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THEN:  CptpointD  is  given  the  value  CptpointD  + 
CemopointD 

Rule  Number:  376 

IF:  Cemopoint:  >  10 

THEN:  CptpointD  is  given  the  value  CptpointD  +  10 

Rule  Number:  377 

IF:  CptpointD  >-  0  and  CptpointD  <  13 

THEN:  Patient  category  is:  I    Self  Care/Minimal  Care 

Rule  Number:  378 

IF:  Cptpoint:  >  IS  and  CptpointD  <  3S 

THEN:  Patient  category  is:  II   Moderate  Care 

Rule  Number:  379 

IF:  CptpointD  >  31  and  CptpointD  <  64 

THEN:  Patient  category  is:  III  Acute  Care  CI  staff  to  3 
patients] 

Rule  Number:  380 

IF:  CptpointD  >  63  and  CptpointD  <  96 

THEN:  Patient  category  is:  lU   Intensive  Care  CI  staff 
to  E  patients] 

Rule  Number:  381 

IF:  CptpointD  >  95  and  CptpointD  <  146 

THEN:  Patient  category  is:  U   Continuous  Care  CI  staff 
to  1  patients] 

Rule  Number:  38B 

IF:  CptpointD  >  145 

THEN:  Patient  category  is:  UI   Critical  Care  CI  staff 
to  1  patients] 
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APPENDIX  E 
PRDGRAH  LISTINGS 


•»♦*  INTRO. PRG  *«******«*»«*****«*******«*«»*«**««***«*«»^ 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  26  November  1SB5 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Introductory  screen  for  the  proto- 

*  type  model . 

*  Input  Files  Used:  Intro. Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  None 

*  Routine  Called:  Ualid.Prg 

*  nodification  Date:    IS  February  19BG 

m 

*  —  Screen  Input  Program  For  Intro  — 

w 

Set  Procedure  To  B:Pracfile 
Do  Setup 
Public  Flash 
Flash  -  ChrC145] 

Do  While  .T. 

*  —  Screen  display  B: Intro. Scr  — 

Set  Procedure  To  B: Proof ile 

Set   Color   To   UJ+/B,    / 

Clear 

77  Flash+"S.B: Intro. Scr/" 

Set   Color    To   kl+ZB,     /U 

G    E4,0 

Set  Console  Off 

tJait 

Set  Console  On 

Do  B:Ualid 

Enddo 
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m 

Author: 

m 

Date: 

m 

Purpose: 

* 

Input  Files  Used: 

« 

Output  Files  Used: 

« 

Calling  Routine: 

« 

Routine  Called: 

m 

Modification  Date: 

m 

* 

««««  PROCFILE.PRG  **««*********************************4^** 

Gary  R.  Harmeyer  LCDR  NC  USN 
1  December  1985 

See  comments  above  each  procedure. 
None 

Orders  and  Ncaredb.Dbf 
All  modules 
None 
18  February  1986 


*  —  Screen  headers  after  patient  selection  — 

Procedure  Headings 

e  a,3  Say  Ptselect 
e  S,42  Say  Ptregno 
e  E,56  Say  Date C 3 
@  a, 65  Say  TimeCD 
e  BE, 3   Say  Curuser 
Return 


*  —  Used  to  reset  pointer  and  put  data  from  variable 

*  —   names  into  Orders. Dbf  — 

Procedure  Replaord 

Store  DTOCCDateCDD  To  Now 

Use  B: Orders 

Do  While  .Not.  E0FC3 

Skip 
Enddo 

Append  Blank 

Replace  Order  With  riorder 
Replace  Fmpssn  With  Ptfmpssn 
Replace  Freq  With  Ofreq 
Replace  Otime  With  TimeCD 
Replace  Odate  With  Now 
Replace  Prac  With  Curuser 
Replace  Expertsys  With  Passdata 
Replace  Onlytoday  With  Todayonly 
Replace  Critical  With  Ptpoint 
Replace  nodule  With  Omodule 
Replace  flonpt  With  Honpoint 
Replace  Emopt  With  Emopoint 
Replace  Roupt  With  Roupoint 
Return 
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♦  —  Used  to  reset  pointer  ~nd  put  data  from  variable 

*  —    names  into  Ncaredb.Dbf  — 

Procedure  Repnrord 

Use  B:Ncaredb 

Do  Uhile  .Not.  EOFC] 

Skip 
Enddo 

Append  Blank 

Replace  Nfmpssn  Uith  Ptfmpssn 
Replace  Nord  Uith  riorder 
Replace  Ntime  With  TimeCD 
Replace  Ndate  Uith  DateCD 
Replace  Nurse  Uith  Curuser 
Replace  Ndiag  Uith  Nursdiag 
Replace  Assess  Uith  Nassess 
Replace  Relate  Uith  Nrelate 
Replace  Goal  Uith  Ngoal 
Replace  Nfreq  Uith  Ofreq 
Replace  Emotea  Uith  Emoteach 
Return 


*  —  Determine  the  current  nursing  care  level  — 

Procedure  Current 

Xgoa4cur  -  "B" 

@  E3,B7  Get  Xgoa4cur  Pict  "!" 

Read 

Do  Uhile  .Not.  CXgoa4cur  -  "A"  .Or.  Xgoa4cur  =  "B"  .Dr.; 

Xgoa4cur  -  "C'.Or.  Xgoa4cur  »  "D"  .Or.  Xgoa4cur  -  "E"] 

e  a3,67  Clear 

Store  "  "  To  Xgoa4cur 

e  24,0  Say  "Re-Enter  Letter  A,  B,  C,  D  or  E" 

@  E3,67  Get  Xgoa4cur  Pict  "!" 

Read 
Enddo 

*  —  Assign  value  to  letter  selected  — 

Do  Case 

Case  Xgoa4cur  -  "A" 

norder  -  "Infant/Toddler  Care" 

Passdata  -  "QE3  1" 

Ptpoint  "  6 
Case  Xgoa4cur  -  "B" 

Morder  -  "Self /Minimum  Care" 
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Passdata  -  "QE3  2" 

Ptpoint  -  2 
Cose  Xgoa4cur  -  "C" 

riorder  -  "Assisted  Care" 

Passdata  -  "023  3" 

Ptpoint  -  6 
Case  Xgoa4cur  -  "D" 

Morder  -  "Complete  Care" 

Passdata  -  "023  4" 

Ptpoint  -  14 
Case  Xr-:a4cur  =  "E" 

nord-   =  "Total  Care" 

Passdata  =  "023  5" 

Ptpoint  -  32 
Endcase 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  —    expert  system  for  oral,  IM  or  subq  medication 

*  —    category  options  — 

Procedure  Regmeds 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  -  41D 

*  —  Less  than  x  3  or  TID 
Passdata  =  "047  1" 
Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  36] 

*  —  X  3  or  TID  up  to  x  12  trips 
Passdata  -  "047  2" 

Ptpoint  -  2 
Case  CTimeopt  >  35  .And.  Timeopt  <  40D 

*  —  More  than  12  trips 
Passdata  -  "047  3" 
Ptpoint  -  4 

Endcase 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  —    expert  system  for  laboratory  category  options  - 

Procedure  Labcount 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  •  413 
Passdata  -  "044  1" 
Ptpoint  =  0 


151 


Case  CTimeopt  -  34  .Or.  Timeopt  -  35D 

Passdata  -  "044  E" 

Ptpoint  -  2 
Case  CTimeopt  "  36  .Dr.  Timeopt  -  37] 

Passdata  "  "044  3" 

Ptpoint  -  4 
Case  CTimeopt  -  3B  .Dr.  Timeopt  -  39] 

Passdata  -  "044  4" 

Ptpoint  -  8 
EndcasB 
Return 


*  —  Determine  the  liter  flow  rate  of  oxygen  — 

Procedure  Liter 

Xliteropt  -  "A" 

e  E3,S6  Get  Xliteropt  Pict  "!" 

Read 

Do  While  .Not.  CXliteropt  -  "A"  .Dr.  Xliteropt  -  "B".Dr.; 

Xliteropt-  "C".0r.  Xliteropt"  "D".Dr.  Xliteropt-  "E"] 

e  23,66  Clear 

Store  "  "  To  Xliteropt 

e  24,0  Say  "Re-Enter  Letter  A,  B,  C,  D  or  E" 

e  23,66  Get  Xliteropt  Pict  "!" 

Read 
Enddo 

*  —  Assign  value  to  letter  selected  — 
Do  Case 

Case  Xliteropt  -  "A" 

Xliter  -  "0  1-2  1/m" 
Case  Xliteropt  -  "B" 

Xliter  -  "(3  3-4  1/m" 
Case  Xliteropt  -  "C" 

Xliter  -  "@  5-6  1/m" 
Case  Xliteropt  -  "B" 

Xliter  -  "0  7-B  1/m" 
Case  Xliteropt  =  "B" 
Xliter  -  "0  9-10  1/m" 
EndcasB 
Return 


i 

I 


*  --  Used  to  evaluate  the  proper  value  to  pass  to  the  ex- 

•  —    pert  system  for  lU  medication  category  options  — 
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Procedure  lUmeds 

Do  Case 

Case  CTimeopt  <  E5  .Or.  Timeopt  -  413 

*  —  Less  than  QBh  or  TID 
Passdata  -  "074  1" 
Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  —  QBh  or  TID 
Passdata  -  "074  E" 
Ptpoint  -  E 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  QBh  or  X  4 
Passdata  -  "074  3" 
Ptpoint  -  3 

Case  CTimeopt  "34  .Dr.  Timeopt  -  353 

*  —  04h  or  X  6 
Passdata  -  "074  4" 
Ptpoint  -  4 

Case  CTimeopt  "  36  .Or.  Timeopt  -  373 

*  —  OEh  or  X  IS 
Passdata  -  "074  5" 
Ptpoint  «=  8 

Case  CTimeopt  -  38  .Or.  Timeopt  ="  393 

*  ~  Olh  or  X  E4 
Passdata  -  "074  6" 
Ptpoint  -  16 

Endcase 
Return 


*  —  Initialize  variables  in  the  order  modules  — 

Procedure  Startup 

Ofreq  -  "  " 
Ptpoint  -  0 
Passdata  -  "  " 
Todayonly  -  "F" 
Emopoint  -  0 
Honpoint  -  0 
Roupoint  -  0 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  --    expert  system  for  range  of  motion  category  — 
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Procedure  Range 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  -  41] 

*  —  Less  than  x  3 
Passdata  -  "Q61  1" 
Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  34D 

*  —  X  3  or  less  than  x  B 
Passdata  -  "Q61  2" 
Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  »  35D 

*  —  X  6  or  Q4h 
Passdata  -  "061  3" 
Ptpoint  -  B 

Case  CTimeopt  -  3B  .Or.  Timeopt  "  37D 

*  —  X  12  or  Q2h 
Passdata  -  "061  4" 
Ptpoint  -  16 

Case  CTimeopt  -  38  .Or.  Timeopt  "  39D 

*  —  X  24  or  Olh 
Passdata  -  "061  5" 
Ptpoint  -  32 

Endcase 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  --    expert  system  For  cough  and  deep  breathe  category 

*  —   option  — 

Procedure  Cough 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  -  41D 

*  —  Less  than  Q4h  or  x  6 
Passdata  -  "065  1" 
Ptpoint  -  0 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  04h  or  X  6 
Passdata  -  "065  2" 
Ptpoint  -  2 

Case  CTimeopt  -  36  .Or.  Timeopt  -  37D 

*  —  02h  or  X  12 
Passdata  -  "065  3" 
Ptpoint  -  4 

Case  CTimeopt  -  38  .Or.  Timeopt  -  393 

*  ~  Olh  or  X  24 


15^ 


PassdDta  -  "DEB  4' 
Ptpoint  -  a 

EndcQse 

Return 


*  —  Sets  up  the  initial  environment  for  each  module 

Procedure  Setup 

Clear 

Set  Escape  Qn 
Set  Talk  Off 
Set  Echo  Off 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  —    expert  system  For  S&A,  specific  gravity,  Guiac 

*  —    and  spin  Hct  category  option  — 

Procedure  Routine 
Do  Case 

Case  CTimeopt  <  5  .Dr.  Timeopt  -  HID 

*  —  No  specific  frequency  ordered 
Roupoint  -  0 

Case  CTimeopt  >  4  .And.  Timeopt  <  2ED 

*  —  X  1  or  QD 
Roupoint  "  1 

Case  CTimeopt  >  El  .And.  Timeopt  <  S5D 

»  —  X  E  or  BID 

Roupoint  -  E 
Case  CTimeopt  >  E4  .And.  Timeopt  <  31 D 

*  —  X  3  or  TID 
Roupoint  "  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34D 

*  —  X  4  or  QID 
Roupoint  -  4 

Case  CTimeopt  -  34  .Dr.  Timeopt  -  35D 

*  —  X  6  or  Q4h 
Roupoint  -  B 

Case  CTimeopt  -  36  .Dr.  Timeopt  -  37D 

*  ~  X  IS  or  QSh 
Roupoint  -  IS 

Case  CTimeopt  -  38  .Dr.  Timeopt  =-  393 

*  ~  X  S4  or  Qlh 
Roupoint  -  S4 

Endcase 
Return 
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*♦**  UALID.PRG  »♦***••••*♦***••••«*•»******»»»**•«««••«< 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  2  December  1985 

*  Screen  Generated  By:  The  Softuare  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Evaluate  the  validity  of  the 

*  passuiord   used. 

*  Input  Files  Used:  Ualid.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Useinfo.Dbf 

*  Calling  Routine:  Intro. Prg 

*  Routine  Called:  Master. Prg 

*  Modification  Date:  18  February  1986 
» 

*  —  Screen  Input  Program  For  Ualid  — 

* 

Do  Setup 

Public  Xusepass, Curuser , Useacc 

Use  B:Useinfo 

Xusepass  -  SpaceCSD 

Xusepasl  -  SpaceClD 

XusepasS  =  SpaceClD 

Xusepas3  *  SpaceClD 

Xusepas4  =  SpaceClD 

XusepasS  =  SpaceClD 

Do  Uhile  .T. 

♦  —   Screen   Display    A:Ualid.Scr   — 

Set   Color    To   Ui+/B,W+/B 

Clear 

??   Flash+"S.A:Ualid.Scr/" 

Set   Color   To   l»J+/B,U+/B 

e    13,43 

♦  —  Places  an  "X"  on  the  screen  to  mask  the  password 

♦  —    entered  — 

Set  Console  Off 
Wait  To  Xusepasl 
e  13,43  Say  'X' 
Wait  To  XusepasE 
e  13,45  Say  'X' 
Wait  To  Xusepas3 
e  13,47  Say  'X' 
Wait  To  Xusepas4 
e  13,49  Say  'X' 
Wait  To  XusepasS 
e  13,51  Say  'X' 
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Xusepass  "; 

Upper CXusepasl+XusepasE+XusBpas3+Xusepas4+XusBpQs5] 
Set  Console  On 

*  —  Evaluates  the  passujord  entered  — 

Locate  For  Xusepass  =-  Codeword 

If  CXusepass  <>  CodewordD  .And.  EOFCD 

e  E4,15  Say  "INUALID   PASSUORD  —   HIT   ANY   KEY" 

e  34,51  Say  "   AND   RE-ENTER" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 

Store  Ufinitial  +  '  '  +  TrimCUlnameD  To  Curuser 
Store  Access  To  Useacc 
0  24,0 

0  23,80  Clear 

0  E4,7  Say  "Your  Password  Has  Been  Accepted  —  " 
0  24, 4E  Say  "Please  Press  A  Key  To  Continue" 
Set  Console  Off 
Wait 

Set  Console  On 
Do  B: Master 


Enddo 
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***«  MASTER. PRG  *»»**^ 

*  Author: 

*  Date: 

*  Screen  Generated  By 


» 
w 
m 

« 
m 
m 
m 
« 
* 


Purpose; 


Input  Files  Used: 
Output  Files  Used: 
Calling  Routine: 
Routine  Called: 
Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 

EG  November  1985 

The  Software  Bottling  Company 
Of  Neu  Yc  k,  cl385 

Menu  program  to  branch  betueen  the 
admission's  department,  the 
database  administration  and 
the  patient  care  personnel . 

Master. Scr  and  Procfile.Prg 

None 

Ualid.Prg 

Admit,    Ulard   or   Addelete.Prg 

4  February  19B6 


—  Screen  I  put  Program  For  Master  — 


Do  Setup 

Public  Xmasopt , Omodule 

Omodule  -  SpaceClD 

Do  While  .T. 


*  — 


Screen  Display  B: Master. Scr  — 


Set   Color   To   UJ+/B,IjJ+/B 

Clear 

??  Flash+"S.B:Master.Scr/" 

Set  Color  To  U)+/B,U)+/B 

Xmasopt  "  0 

e  a,56  Say  DateCD 

e  2,65  Say  TimeCD 

0  EE,3  Say  Curuser 

@  EE,67  Get  Xmasopt  Pict  "9"  Range  0,4 

Read 

*  —  Evaluate  action  based  on  the  option  selected 

*  —  Ualidate  user's  access  to  area  selected  — 

Do  Case 

Case  Xmasopt  "  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 
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Case  Xmosopt  =  1 

*  —  Admission's  Department 
Do  Case 

Case  Useacc  "  B  .Or.  Useacc  -  3  .Or.  Useacc 
0  24,16  Say  "Access  Not  Allowed  —  Press 
0  24,44  Say  "Any  Key  To  Continue" 
Set  Console  Off 
Wait 

Set  Console  On 
Loop 
Case  Useacc  -  0 
Do  B: Admit 
Endcase 


Or .  Useacc 


Case  Xmasopt  =  E 
•  —  Doctor  flaster 
Do  Case 

Case  Useacc  - 
0  E4, IB  Say 
0  24,44  Say 
Set  Console 
Uait 

Set  Console 
Loop 
Case  Useacc  " 
Dmodule  -  "D 
Do  B:U)ard 
Endcase 


1  .Or.  Useacc  "2  .Or.  Useacc 
"Access  Not  Allowed  —  Press 
"Any  Key  To  Continue" 
Off 


On 


Or .  Useacc 


Case  Xmasopt  "  3 

♦  —  Nursing  Master 
Do  Case 

Case  Useacc  "1  .Or.  Useacc  "2  .Or. 
0  24,16  Say  "Access  Not  Al lowed  — 
0  24,44  Say  "Any  Key  To  Continue" 
Set  Console  Off 
Wait 

Set  Console  On 
Loop 


Useacc 
Press 


Case  Useacc  "  0 
Omodule  -  "N" 
Do  BrWard 
Endcase 


.Or.  Useacc 


Case  Xmasopt  =  4 

*  —  System  Administration 
Do  Case 

Case  Useacc  -  1  .Or.  Useacc  "3  .Or.  Useacc  -  4 
0  24,16  Say  "Access  Not  Allowed  —  Press  " 
0  24,44  Say  "Any  Key  To  Continue" 
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Set  Console  Off 
Wait 

Set  Console  On 
Loop 
Case  Useacc  -  0   .Or.  Useacc 
Do  B:AddelBtB 
Endcase 
Endcase 
Release  Xmasopt 


Enddo 
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»  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  9  January  1986 

*  Screen  Generated  By:  The  SoFtujare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Allows  the  admitting  personnel  to 

*  choose  to  admit  or  discharge  a 

*  patient. 

*  Input  Files  Used:  Admit. Scr  and  ProcFile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  riaster.Prg 

*  Routine  Calls:  Pt_Info  or  Discharg.Prg 

*  riodification  Date:  E5  January  19BB 
« 

*  —  Screen  Input  Program  For  Admit  — 

m 

Do  Setup 

Public  Xadmitopt 

Do  While  .T. 

•  —  Screen  Display  B: Admit. Scr  — 

Set  Color  To  U)+/B,UI+/B 

Clear 

??  Flash+"S.B:Admit.Scr/" 

Set  Color  To  U+/B,U)+/B 

Xadmitopt  -  0 

e  SE,3  Say  Curuser 

0  EE,B7  Get  Xadmitopt  Pict  "9"  Range  0,E 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xadmitopt  -  0 

♦  ~  Sign-Off 
Close  Databases 
Release  All 
Close  Procedure 
Return  To  Master 

Case  Xadmitopt  -  1 

♦  —  Admit  A  Patient 
Do  B:Pt_Info 

Loop 
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Case  Xadmitopt  "  E 

*  —  Discharge  A  Patient 

Do  B:Discharg 

Loop 

Endcase 

Release  Xadmitopt 


Enddo 
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mmitmt    pj  INFO.PRG  *«««*«*«»**«*«********************«»»««»» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  Neui  York,  clSBB 

*  Purpose:  Add  a  patient  to  the  patient 

*  database  file. 

*  Input  Files  Used:  Pt_Infa.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Pt_Info.Dbf 

*  Calling  Routine:  Admit. Prg 

*  Routine  Called:  None 

*  Modification  Date:  SB  January  1986 
* 

*  —  Screen  Input  Program  for  Pt_Info  — 

« 

Do  Setup 

Public  Xplname, Xpf name, Xpmname, Xraterank, Xf mpssan 

Public  Xpbdate, Xpage, Xpsex, Xpadmdate, Xpregno 

Public  Xpmeddiag, Xpphy , Xpprog, Xpall , Xpuard, Xprm, Xpbed 

Xplname  "  SpaceCSOD 

Xpf name  "  SpaceClED 

Xpmname  "  SpaceC3D 

Xraterank  =  SpaceCllD 

Xfmpssan  -  "   -"+SpaceC9D 

Xpbdate  -  DateCD 

Xpage  ="  SpaceCBD 

Xpsex  -  SpaceClD 

Xpadmdate  -  DateC3 

Xpregno  "  SpaceCBD 

Xpmeddiag  -  SpaceCE4D 

Xpphy  -  SpaceCE4D 

Xpprog  =  SpacBC3D 

Xpall  -  SpaceCEHD 

Xpuiard  "  SpaceCSD 

Xprm  -  SpaceClD 

Xpbed  -  SpaceClD 

Do  While  .T. 

♦  —  Screen  Display  B: Pt_Info .Scr  — 

Set  Color  To  UJ+/B,U+/B 

Clear 

7?  Flash+"S.B:Pt_Info.Scr/" 

Set  Color  To  U)+/B,W+/B 

e  5,14  Get  Xplname  Pict  " ! XXXXXXXXXXXXXXXXXXX" 

e  7,14  Get  Xpf name  Pict  " ! XXXXXXXXXXX" 

e  9,14  Get  Xpmname  Pict  "!XX" 

@  11 , 14  Get  Xraterank  Pict  "MM!!!!!!!" 
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e  13,14  Get  Xfmpsson  Pict  "99-999399993" 
e  15, 14  Get  XpbdatB; 

Range  CTODC "01/01/00"] , CTODC "lE/31/33"] 
e  17,14  Get  Xpage  Pict  "XXX" 
0  13,14  Get  Xpsex  Pict  "!" 
0  21,14  Get  Xpadmdate; 

Range  CTODC "01/01/00" D , CTODC "12/31/33" D 
e  5,55  Get  Xpregno  Pict  "33333333" 

e  7,55  Get  Xpmeddiag  Pict  " ! XXXXXXXXXXXXXXXXXXXXXXX" 
@  3,55  Get  Xpphy  Pict  "! XXXXXXXXXXXXXXXXXXXXXXX" 
e  11,55  Get  Xpprog  Pict  "M!" 
e  13,55  Get  Xpall  Pict  "! XXXXXXXXXXXXXXXXXXXXXXX" 

*  —  Ualidate  input  for  ward,  room  and  bed  assignment  — 

0  15,55  Get  Xpward  Pict  "3!" 

Read 

Do  While  .Not.  CXpward  -  "EE"  .Or.  Xpujard  -  "3E"] 

Xpward  -  SpaceCED 

0  E4,0  Say  "Re-Enter  Either  EE  or  3E" 

0    15,55   Get   Xpiuard   Pict    "3!" 

Read 
Enddo 
0  E4,0  Clear 

0  17,55  Get  Xprm  Pict  "3" 

Read 

Do  While  .Not.  CXprm  -  "1"  .Or.  Xprm  -  "E"  .Or.; 

Xprm  -  "3"D 

Xprm  -  SpaceClD 

0  E4,0  Say  "Re-Enter  Either  1  or  E  or  3" 

0  17,55  Get  Xprm  Pict  "3" 

Read 
Enddo 
0  E4,0  Clear 

0  13,55  Get  Xpbed  PICT  "!" 

Read 

Do  While  .Not.  CXpbed  -  "A"  .Dr.  Xpbed  -  "B"D 

Xpbed  -  SpaceClD 

0  S4,0  Say  "Re-Enter  Either  Pi  or  B" 

0  13,55  Get  Xpbed  Pict  "!" 

Read 
Enddo 
0  S4,0  Clear 

*  —  Put  data  from  variable  names  into  Dbf  file  — 

Use  B:Pt_Info 

Do  While  .Not.  EOFCD 
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Skip 
Enddo 
Append  Blank 

Replace  Plname  With  Xplname 
Replace  PFname  With  Xpfname 
Replace  Pmname  With  Xpmname 
Replace  Raterank  With  Xraterank 
Replace  Fmpssan  With  Xfmpssan 
Replace  Pbdate  Uith  Xpt-date 
Replace  Page  UJith  Xpaga 
Replace  Psex  With  Xpsex 
Replace  Padmdate  Ulith  Xpadmdate 
Replace  Pregno  Uith  Xpregno 
Replace  Pmeddiag  UJith  Xpmeddiag 
Replace  Pphy  Uith  Xpphy 
Replace  Pprog  Uith  Xpprog 
Replace  Pall  Uith  Xpall 
Replace  Pward  Uith  Xpujard 
Replace  Prm  Uith  Xprm 
Replace  Pbed  Uith  Xpbed 

Return 

Release  Xplname, Xpfname, Xpmname, Xraterank, Xfmpssan 

Release  Xpbdate , Xpage , Xpsex , Xpadmdate , Xpregno 

Release  Xpmeddiag, Xpphy , Xpprog, Xpall , Xpward, Xprm, Xpbed 


Enddo 
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*•**  DISCHARG.PRG  »*»^ 

*  Author: 

*  Date: 

*  Screen  Generated  By 


Purpose: 

Input  Files  Used: 
Output  Files  Used 
Calling  Routine: 
Routine  Calls: 
nodification  Date: 


« 
m 
* 
m 
m 
m 
# 

Do  Setup 

Public  Xdischopt , Xdcfss 

Public  Xdcmname, Xdcpphy 

Xppack  "  .F. 

Select  A 

Use  B: Pt_Info 

Select  B 

Use  B: Orders 

Select  C 

Use  B:Ncaredb 


Gary  R.  Harmeyer  LCDR  NC  USN 

3  January  1386 

The  Software  Bottling  Company 

OF  New  York,  cl385 
Discharge  a  patient. 
Discharg.Scr  and  Proof ile.Prg 
Pt_Info,  Orders  and  Ncaredb.Dbf 
Admit . Prg 
None 
IB  February  13BB 


—  Screen  Input  Program  For  Discharg  — 


n , Xdclname , Xdcf name 
, Xmdf mpssn , Xppack 


Do  While  .T. 

*  —  Store  data  from  Dbf  file  into  variable  names  — 

Select  A 

Xdcfssn  =  Fmpssan 
Xdclname  "  Plname 
Xdcfname  "  Pfname 
Xdcmname  "  Pmname 
Xdcpphy  =-  Pphy 

*  —  Screen  Display  B: Discharg .Scr  — 

Set  Color  To  UJ+/B,  U)+/B 

Clear 

??  Flash+"S.B:Discharg.Scr/" 

Set    Color    To    y+/B,UJ+/B 

Xdischopt  -  1 

0  EE,3  Say  Curuser 

e  13,2  Say  Xdcfssn 

@  13,17  Say  Xdclname 

G  13,38  Say  Xdcfname 

@  13,51  Say  Xdcmname 

e  13,55  Say  Xdcpphy 
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0  E2,B7  Get  Xdischopt  Pict  "9"  Range  0,3 
Read 

•  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xdischopt  =  0 

*  —  Sign-Off 
If  Xppack  -  .T. 

Pack 
Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdischopt  =  1 

*  —  Next  Patient 
Skip 

If  EOF  C3 

e  E4,15  Say  "No  Additional  Patients  —  Press  " 

@  E4,47  Say  "Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

If  Xppack  "  .T. 
Pack 

Endif 

Close  Databases 

Return 
Else 

Loop 
Endif 

Case  Xdischopt  -  S 

*  —  Discharge  patient 
Xppack  "  .T. 

Store  " • "  +  Xdcf ssn  +  " ' "  To  Xmdf mpssn 

*  —  Eliminate  patient  data  from  database  files 
Select  B 

Do  While  .Not.  EOFCD 

Locate  For  Fmpssn  =  &Xmdfmpssn 
If  .Not.  EOFCD 
Delete 
Skip 
Endif 
Enddo 
Pack 
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Select  C 

Do  While  .Nat.  EDFC3 

Locate  For  NFmpssn  "=  &XmdFmpssn 

IF  .Not.  EDFCD 
Delete 
Skip 

EndiF 
Enddo 
Pack 
Select  A 
Delete 
Skip 
IF  EOF  CD 

e  24,15  Say  "No  Additional  Patients  —  Press  " 

0  E4,47  Say  "Any  Key  To  Continue" 

Set  Console  OFF 

Uait 

Set  Console  On 

Pack 

Close  Databases 

Return 
Else 

Loop 
EndiF 

Case  Xdischopt  "  3 

♦  —  Admit/Discharge  Screen 
IF  Xppack  "  .T. 

Pack 
EndiF 

Close  Databases 
Return 

Endcase 

Release  Xdischopt , XdcFssn, Xdclname, XdcFname 

Release  Xdcmname , Xdcpphy , XmdFmpssn , Xppack 


Enddo 
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««««  Ui^RD . PRG  *««***««««««*************************«****** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  EB  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Determine  uard  selection. 

*  Input  Files  Used:     Ulard.Scr  and  Procfile.Prg 

*  Output  Files  Used:    None 

*  Calling  Routine:      Master. Prg 

*  Routine  Called:       UardE  or  Uiard3.Prg 

*  riodification  Date:    4  February  1386 

*  —  Screen  Input  Program  For  Uard  — 

* 

Do  Setup 

Public  Xuiardopt ,  Ourpt ,  Df  req,  Passdata,  Ptpoint ,  Today  only 

Public  Monpoint , Emopoint , Roupoint , Ptselect ,  florder , Now 

Public  Ptf mpssn, Ptregno 

Of req  -  SpaceClD 

Passdata  "=  SpaceCBD 

Ptpoint  -  0 

Todayonly  -  "F" 

Monpoint  "  0 

Emopoint  -  0 

Roupoint  -  0 

norder  -  SpaceCE?] 

Now  "  SpaceCBD 

Da  While  .T. 

*  —   Screen   Display    B:UJard.Scr    — 

Set  Color  To  W+/B,W+/B 

Clear 

??  Flash+"S.B:Uard.Scr/" 

Set  Color  To  UJ+/B,UI+/B 

Xwardopt  -  3 

e  E,5B  Say  DateCD 

e  S,65  Say  TimeCD 

e  EE,3  Say  Curuser 

e  SS,B7  Get  Xwardopt  Pict  "S"  Range  0,3 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xwardopt  -  0 
*  —  Sign-Off 
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Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xwardopt  -  1 

*  —  EE  Surgical  Uard 
Do  B: Wards 

Return 

Case  Xuardopt  -  E 

*  —  3E  nedical  Ward 
Do  B:ljJard3 

Return 

Case  Xujardopt  =  3 

*  --  Master  Screen 
Return 

Endcase 

Release   Xiuardopt 


Enddo 
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♦  Author:  Gary  R.  Hormeyer  LCDR  NC  USN 

Date:  EB  November  1985 

Screen  Generated  By:  The  Softuare  Bottling  Company 

Of  New  York,  cl985 
Displays  patients  assigned  to  ward 

EE,  for  patient  selection. 
UlardE.Scr  and  Procfile.Prg 
Pt_Info.Dbf 
Master . Prg 
Doctor  or  Nurse. Prg 
4  February  1986 


Purpose: 

Input  Files  Used: 
Output  Files  Used: 
Calling  Routine: 
Routine  Called: 
Modification  Date: 


*  —  Screen  input  program  for  UardE  — 

Do  Setup 

Publ ic  XwdEopt , Xptlregno , XptSregno , Xpt3regno , Xpt4regno 

Public  XptSregno, XptBregno, Xptl , XptE, Xpt3, Xpt4 , XptS 

Public  Xptlfmpssn, XptSf mpssn, Xpt3fmpssn, XptB 

Public  Xpt4f mpssn, XptSf mpssn, XptBf mpssn 

*  —  Store  specific  data  from  Dbf  file  into  variable 

*  —    names  — 


Use  B:Pt_Info 

Locate  For  Prm  -  '1'  .And. 
Xptl  -  Pfname  -  C '  '  +P1 
Xptlregno  -  Pregno 
Xptlfmpssn  -  Fmpssan 

Locate  For  Prm  -  '1'  .And. 
XptE  -  Pfname  -  C '  '  +P1 
XptSregno  "  Pregno 
XptEfmpssn  -  Fmpssan 

Locate  For  Prm  =-  'S'  .And. 
Xpt3  -  Pfname  -  C '  '  +P1 
Xpt3regno  -  Pregno 
Xpt3fmpssn  -  Fmpssan 

Locate  For  Prm  -  'S'  .And. 
Xpt4  -  Pfname  -  C  '  '  -^Pl 
Xpt4regno  -  Pregno 
Xpt4fmpssn  -  Fmpssan 

Locate  For  Prm  -  '3'  .And. 
XptS  -  Pfname  -  C '  '  +P1 
XptSregno  -  Pregno 
XptSfmpssn  -  Fmpssan 

Locate  For  Prm  =  '3'  .And. 
XptB  -  Pfname  -  C '  '  +pi 
XptBregno  -  Pregno 
XptBfmpssn  -  Fmpssan 


Pbed 
nameD 


Pbed 
name  3 


Pbed 
nameD 


Pbed 
name] 


Pbed 
name  3 


Pbed 
name] 


A'  .And.  Puard  -  'E' 


B'  .And.  Puard  -  'E* 


A'  .And.  Puard 


'B'  .And.  Puard  -  'S' 


A'  .And.  Puard  -  'E' 


'B'  .And.  Puard 
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Do   While    .T. 

*  —   Screen   Display    B:UJardE.Scr   — 

Set   Color   To   U+/B,UJ+/B 

Clear 

??   Flash+"S.B:lJardE.Scr/" 

Set  Color  To  UJ+/B,UJ+/B 

XujdEopt  =-  7 

@  2,56  Say  DateCD 

@  2,65  Say  TimeC D 

0  S,3S  Say  Xptl 

e  10,39  Say  Xpt2 

e  IE, 39  Say  Xpt3 

@  13,39  Say  Xpt4 

@  15,39  Say  Xpt5 

e  16,39  Say  Xpt6 

e  EE,3  Say  Curuser 

@  ES,67  Get  XwdEopt  Pict  "9"  Range  0,7 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

*  --  Store  data  from  Dbf  file  into  variable  names  -- 

Do  Case 

Case  XujdEopt  =  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  flaster 

Case  XujdEopt  -  1 

*  —  Patient  in  room  1  bed  A 

Locate  For  Prm  -'I'.And.  Pbed  -'A'.And.  Pward  -'E' 

Ptregno  -  Xptlregno 

Ptselect  -; 

Puard  -C'     '+PrmD-C'    '-^PbedD-C'       'H-Xptl] 

Ourpt  -  Xptl 

Ptfmpssn  =  Xptlfmpssn 
If  Ourpt  -  " 

0  E4,9  Say  "Sorry  No  Patient  In  That  Bed  —  " 

e  E4,41  Say  '^Please  Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 
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If  Omodule  -  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case   XujdSopt    "   E 

*  —  Pntient  in  room  1  bed  B 

Locate  For  Prm  -'I'.And.  Pbed  -'B'.And.  Piuard  ='E' 

Ptregno  =  XptEregno 

Ptselect  =; 

Pward  -C     '+PrmD-C'    ■+PbedD-C'       '+Xpt23 

Ourpt  =■  XptB 

Ptfmpssn  -  Xpt2fmpssn 
IF  Ourpt  -  " 

0  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  " 

e  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 
If  Omodule  -  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case   Xuid2opt    -   3 

*  —  Patient  in  room  2  bed  A 

Locate  For  Prm-  '2 '.And.  Pbed- 'A'  .And.  Puard-  '2' 

Ptregno  -  Xpt3regno 

Ptselect  -; 

Pward  -C'     '+PrmD-C'    '+PbedD-C'       '+Xpt3D 

Ourpt  -  Xpt3 

Ptfmpssn  -  Xpt3fmpssn 
If  Ourpt  -  " 

@  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  " 

e  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 
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If  Omodule  -  "D" 

Do  B: Doctor 

Return 
-  Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case    XujdEopt    =    4 

*  —  Patient  in  room  S  bed  B 

Locate  For  Prm-  *2'.And.  Pbed-  'B'.And.  Pward-  '2' 

Ptregno  -  Xpt4rBgno 

Ptselect  "; 

Piuard    -C'  '+PrmD-C'  '-•-PbedD-C'  '+Xpt4D 

Ourpt    -    Xpt4 

Ptfmpssn  -  Xpt4fmpssn 
If  Ourpt  -  " 

0  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  " 

e  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 
If  Omodule  -  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case    Xujd2opt    -    5 

*  —  Patient  in  room  3  bed  A 

Locate  For  Prm-  '3 '.And.  Pbed-  'A '.And.  Puard-  '2' 

Ptregno  -  XptSregno 

Ptselect  "; 

Pujard    -C  •  '-t-PrmD-C  •+Pbed3-C'  'n-XptSD 

Ourpt    -    XptS 

Ptfmpssn  -  XptSfmpssn 
If  Ourpt  -  " 

e  24,3  Say  "Sorry  No  Patient  In  That  Bed  —  " 

e  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 
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If  Omodule  -  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case   Xujd2opt    -    B 

*  —  Patient  in  room  3  bed  B 

Locate    For    Prm-    '3 '.And.    Pbed-    'B'.And.    Piuard-    '2' 

Ptregno  -  XptBregno 

Ptselect  »; 

Pujard    -C  '  '+PrmD-C'  '+Pbed]-C'  '+Xpt6D 

Ourpt   "    XptB 

Ptfmpssn  "•  XptBfmpssn 
If  Ourpt  -  " 

e  E4,3  Say  "Sorry  No  Patient  In  That  Bed  —  " 

e  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Loop 
Endif 
If  Omodule  -  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case   XujdSopt   =-   7 

*  —  Master  Screen 
Return 

Endcase 

Release  XuidEopt ,  Xptlregno,  XptEregno,  Xpt3regno 
Release  XptSregno , XptBregno , XptBfmpssn , XptBfmpssn 
Release  Xptlfmpssn, XptEfmpssn, Xpt3fmpssn, Xpt4fmpssn 
Release  Xpt4regno , Xptl , XptE , Xpt3 , Xpt4 , XptS , XptB 


Enddo 
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*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  11  January  1986 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Displays  patients  assigned  to  ward 

*  3E,  for  patient  selection. 

*  Input  Files  Used:  UardS.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Pt_Info.Dbf 

*  Calling  Routine:  Master . Prg 

*  Routine  Called:  Doctor  or  Nurse. Prg 

*  Modification  Date:  3  March  1986 

*  —  Screen  input  program  for  Uiard3  — 

« 

Do  Setup 

Public  Xujd3opt ,  Xpt7,  XptB,  Xpt9,  XptlO,  Xptll ,  XptlE 
Public  Xpt7regno, XptBregno, Xpt9regno, XptlOregno 
Public  Xptllregno, XptlEregno, Xpllfmpssn, XplEfmpssn 
Public  Xpt7fmpssn, XptBfmpssn, Xpt9fmpssn, XplOfmpssn 

*  —  Store  specific  data  from  Dbf  file  into  variable 

*  --    names  — 

Use  B:Pt_Info 

Locate  For  Prm  -  '1'  .And.  Pbed  -  'A'  .And.  Pward  -  '3' 

Xpt7  -  Pfname  -  C '  '  +PlnameD 

Xpt7regno  =  Pregno 

Xpt7fmpssn  -  Fmpssan 
Locate  For  Prm  -  '1'  .And.  Pbed  -  'B'  .And.  Puard  -  '3' 

XptB  =  Pfname  -  C '  '  +Plname3 

XptBregno  "  Pregno 

XptBfmpssn  -  Fmpssan 
Locate  For  Prm  =  'B'  .And.  Pbed  -  'A'  .And.  Pward  -  '3' 

XptB  -  Pfname  -  C '  '  +PlnameD 

Xpt9regno  -  Pregno 

Xpt9fmpssn  -  Fmpssan 
Locate  For  Prm  -  'B'  .And.  Pbed  =■  'B'  .And.  Pujard  -  '3' 

XptlO  -  Pfname  -  C '  '  +PlnamB] 

XptlOregno  -  Pregno 

XplOfmpssn  =  Fmpssan 
Locate  For  Prm  -  *3'  .And.  Pbed  -  'A'  .And.  Pujard  -  '3' 

Xptll  -  Pfname  -  C '  '  +PlnameD 

Xptllregno  "  Pregno  ' 

Xpllfmpssn  "  Fmpssan 
Locate  For  Prm  -  '3'  .And.  Pbed  -  'B'  .And.  Piuard  -  '3' 

XptlB  -  Pfname  -  C '  '  +PlnameD 

XptlEregno  =  Pregno 

XplEfmpssn  "  Fmpssan 
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Do  While  .T. 

•  —  Screen  Display  B:WQrd3.Scr — 


Set  Color  To  U+/B,UJ- 

•-/B 

Clear 

??  Flash+"S.B:UJard3. 

.Scr/ 

Set  Color  To  U+/B,U+/B 

Xujd3opt  -  7 

e  E,56  Say  DateCD 

0  2,65  Say  TimeCD 

@  9,39  Say  Xpt7 

@  10,39  Say  XptB 

e  IE, 39  Say  Xpt9 

@  13,39  Say  XptlO 

e  15,39  Say  Xptll 

e  16,39  Say  XptlE 

e  aE,3  Say  Curuser 

0  EE,  67  Get  Xujd3opt 

Pict 

Read 

"9"  Range  0,7 


*  —  Evaluate  action  based  on  the  option  selected  — 

*  —  Store  data  from  Dbf  file  into  variable  names  — 

Do  Case 

Case  Xujd3opt  -  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xujd3opt  -  1 

*  —  Patient  in  room  1  bed  A 

Locate  For  Prm-  'I'.And.  Pbed-  'A '.And.  Piuard-  '3' 

Ptregno  -  Xpt7regno 

Ptselect  =; 

Pward  -C '     •+Prm]-C'    '+Pbed3-C'       '+Xpt7D 

Ourpt  -  Xpt7 

Ptfmpssn  -  Xpt7fmpssn 
If  Ourpt  -  " 

Wait  "Sorry  No  Patient  In  That  Bed  -; 
-  Please  Press  A  Key  To  Continue" 

Loop 
Endif 
If  Omodule  =  "D" 

Do  B: Doctor 

Return 
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Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case    Xujd3opt   =   E 

*  —  Patient  in  roam  1  bed  B 

Locate  For  Prm-  'I'.And.  Pbed=  'B'.And.  Pujard=  '3' 

Ptregno  =  XptBregno 

Ptselect; 

Pujard   -C  '  •+PrmD-C'  '+Pbed3-C'  •+XptBD 

Ourpt    -    Xpta 

Ptfmpssn  =  XptBfmpssn 
If  Durpt  -  " 

Uait  "Sorry  No  Patient  In  That  Bed  -; 

-  Please  Press  A  Key  To  Continue" 
Loop 

Endif 

If  Dmodule  -  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case   XiudBopt   =   3 

*  —  Patient  in  room  E  bed  A 

Locate  For  Prm-  'E'.And.  Pbed-  "A '.And.  Puard-  '3' 

Ptregno  =  XptBregno 

Ptselect  ="; 

Puuard-C  '+PrmD-C'  '+PbedD-C'  •+Xpt3] 

Ourpt    =    Xpta 

Ptfmpssn  =■  XptBfmpssn 
If  Ourpt  -  " 

Wait  "Sorry  No  Patient  In  That  Bed  -; 

-  Please  Press  A  Key  To  Continue" 
Loop 

Endif 

If  Omodule  =  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 
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Case  XudSopt  =  4 

*  —  Patient  in  room  S  bed  B 

Locate  For  Prm-  '2 '.And.  Pbed=  'B'.And.  Pujard=  '3' 

Ptregno  -  XptlOregno 

Ptselect  =; 

Pward-C'     '+PrmD-C'    '+PbBdJ-C'       '+XptlOD 

Ourpt  =■  XptlO 

Ptfmpssn  =  XplOfmpssn 
If  Ourpt  -  " 

Wait  "Sorry  No  Patient  In  That  Bed  -; 

-  Please  Press  A  Key  To  Continue" 
Loop 

Endif 

If  Omodule  =  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case  Xuid3opt  =  5 

*  —  Patient  in  room  3  bed  A 

Locate  For  Prm-  '3 '.And.  Pbed-  'A '.And.  Pward-  '3' 

Ptregno  =  Xptllregno 

Ptselect  =; 

Puicrd-C  '  '+Prm3-C'  '+Pbed]-C'  •+XptllD 

Ourpt   -   Xptll 

Ptfmpssn  -  Xpllfmpssn 
If  Ourpt  "  " 

Wait  "Sorry  No  Patient  In  That  Bed  -; 

-  Please  Press  A  Key  To  Continue" 
Loop 

Endif 

If  Omodule  =  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case  Xujd3opt  -  B 

*  —  Patient  in  room  3  bed  B 

Locate  For  Prm=  '3 '.And.  Pbed=  "B'.And.  Pujard=  '3' 
Ptregno  =  XptlEregno 
Ptselect  =; 

Puard-C     '+Prm]-C'    '+PbedD-C'       '+XptlED 
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Qurpt  -  XptlE 

Ptfmpssn  =  XplEfmpssn 
If  Durpt  =  " 

Wait  "Sorry  No  Patient  In  That  Bed  -; 
-  Please  Press  A  Key  To  Continue" 

Loop 
Endif 
If  Omodule  =  "D" 

Do  B: Doctor 

Return 
Else 

Do  B: Nurse 

Return 
Endif 
Return 

Case   Xujd3opt    -   7 

*  —  Master  Screen 
Return 

Endcase 

Release  Xujd3opt ,  Xpt7  ,  XptB  ,  XptS  ,  XptlO ,  Xptll ,  XptlS 
Release  Xpt7regno, XptBregno, XptSregno, XptlOregno 
Release  Xptllregno, XptlEregno, Xpllf mpssn, XplEfmpssn 
Release  Xpt7f mpssn, XptBf mpssn, XptSf mpssn , Xpl Of mpssn 


Enddo 
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««»«  DOCTOR . PRG  »««♦*»♦»*«*«*«**♦**«***«•««*»*****•***«*«« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E7  November  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBB 

*  Purpose:  Menu  for  selecting,  viewing  or 

*  modifying  the  doctor's  orders. 

*  Input  Files  Used:  Doctor. Prg  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  WardS  or  lxlard3.Prg 

*  Routine  Calls:  Doc_menu,  Transfer  or  Discont.Prg 
«  nodification  Date:  4  February  1986 

m 

*  —  Screen  Input  Program  For  Doctor  — 

Do  Setup 

Public  Xdocopt , Xmptf mpssn, Dmenu 

Dmenu  =  SpaceClD 

Do  While  .T. 

*  —  Screen  Display  A: Doctor. Scr  — 

Set  Color  To  UI+/B,U+/B 

Clear 

??  Flash+"S.A:Doctor.Scr/" 

Set  Color  To  IjJ+/B,W+/B 

Xdocopt  =■  6 

Do  Headings 

G  EE,67  Get  Xdocopt  Pict  "9"  Range  0,6 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xdocopt  "  0 

♦  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdocopt  »  1 

*  —  Order  Entry 
Do  B:Doc_rienu 

If  Dmenu  =  "1" 

Loop 
Else 
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Return 
Endif 

Case  Xdocopt  =*  E 

*  —  Admit  /  Transfer  /  Discharge  Patient 
Do  B: Transfer 

If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocopt  "  3 

*  --  Revieu  nedical  Orders 
Clear 

Set   Color   To   UJ+/B,U+/B 

0  1,22  Say  "Patient  Orders  For:" 

0  1,42  Say  Ourpt 

@  3,10  Say  "Press  —  Ctrl  and  S  —  Keys  to  Pause  " 

@  3,47  Say  "The  Scrolling  If  Necessary" 

Use  B: Orders 

Store  " ' "  +  Ptf mpssn  +  " ' "  To  Xmptf mpssn 

Report  Form  B:Ord  For  Fmpssn  -  SXmptf mpssn  .And.; 

nodule  #  'N' 
Wait 
Loop 

Case  Xdocopt  =  4 

*  —  Print  nedical  Orders 

e  24,0  Say  "Turn  On  Your  Printer,  " 

@  24,22  Say  "Then  Hit  Any  Key  To  Print" 

Set  Console  Off 

Wait 

Set  Console  On 

Clear 

0  12,30  Say  "Printing,  Please  Uait" 

Set  Console  Off 

Set  Device  To  Print 

0  1,22  Say  "Patient  Orders  For:" 

0  1,42  Say  Ourpt 

Set  Device  To  Screen 

Use  B: Orders 

Store  " ' "  +  Ptf mpssn  +  " ' "  To  Xmptf mpssn 

Report  Form  B:Ord  Noeject  To  Print  For; 

Fmpssn  =■  &Xmptf mpssn  .And.  nodule  #  'N' 
Set  Console  On 

0  24,0  Say  "Finished  Printing,  " 
0  24,19  Say  "Hit  Any  Key  To  Continue" 
Set  Console  Off 
UJait 
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Set  Console  On 
Loop 

Case  Xdocopt  -  5 

*  —  Discontinue  An  Order 
Do  B:Discont 

If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocopt  =-  6 

*  —  Master  Screen 
Return 

Endcase 

Release  Xdocopt , Xmptfmpssn 


Enddo 
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****  DOC.MENU.PRG  •*•»*«««♦«*»*»*«**•«*♦•♦«•*«*•**•••«••«• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  27  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  Neuj  York,  clSBS 

*  Purpose:  Menu  of  ten  order  categories  for 

*  doctor  to  choose  from . 

*  Input  Files  Used:  Doc_nenu.Scr  and  Drproc.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Doctor . Prg 

*  Routine  Called:  Activity , Diet , lUA, Lab, donitor , Phaml 

*  Xray,Lung,US  or  Routine. Prg 

*  Modification  Date:  4  February  1S8B 
» 

*  —  Screen  Input  Program  For  Doc.flenu  — 

m 

Do  Setup 

Public  Xdocmenopt 

Do  While  .T. 

♦  —  Screen  Display  A: Doc_nenu .Scr 

Set  Color  To  IJ+/B,UJ+/B 

Clear 

??  Flash+"S.A:Doc_nenu.Scr/" 

Set   Color    To   W+/B,UJ+/B 

Xdocmenopt  "11 

Do  Headings 

e  22,66  Get  Xdocmenopt  Pict  "99"  Range  0,12 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xdocmenopt  -  0 
♦  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdocmenopt  -  1 
Do  B:Activity 
If  Dmenu  -  "1" 

Loop 
Else 
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Return 
Endif 

Case  Xdocmenopt  = 
Do  B:DiBt 
IF  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  ' 
Do  B: lUA 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  = 
Do  B:Lab 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  =■ 
Do  B: Monitor 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  - 
Do  BrPhaml 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  = 
Do  B:Xray 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 
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Case  Xdocmenopt  "  8 
Do  B:Lung 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  =  9 
Do  B:US 
If  Dmenu  =  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  =  10 
Do  B: Routine 
If  Dmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xdocmenopt  =11 

*  —  Doctor's  Master  Screen 
Dmenu  -  "1" 

Return 

Case  Xdocmenopt  =  IE 

*  —  Master  Screen 
Store  '  '  To  Dmenu 
Return 

Endcase 

Release  Xdocmenopt 


Enddo 
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««««  ^CTIUITY.PRG  *«>««*««««****»«*******************«««»*» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Dots:  S9  November  1985 

*  Screen  Generated  By:  The  SoFtware  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Determine  activity  orders  of  the 

*  patient. 

*  Input  Files  Used:  Activity. Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc_nenu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  13B6 
« 

*  —  Screen  Input  Program  For  Activity  — 

m 

Do  Setup 
Public  Xactopt 

Do  Uhile  .T. 

*  —  Screen  Display  A: Activity .Scr  — 

Set  Color  To  UI+/B,ljJ+/B 

Clear 

??  Flash+"S. A: Activity .Scr/" 

Set  Color  To  U)+/B,  UJ+ZB 

Xactopt  =  13 

Do  Headings 

Do  Startup 

e  22,66  Get  Xactopt  Pict  "99"  Range  0,14 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xactopt  =  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xactopt  -  1 

norder  -  "Ambulate  ad  lib" 

Do  Replaord 

Loop 
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Case  Xactopt  -  2 

Morder  -  "Ambulate  w/  Assistance" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  5  .Dr.  Timeopt  "41] 

*  —  No  precise  frequency  given 
Passdata  -  "Q51  18" 

Ptpoint  =  0 
Case  CTimeopt  >  4  .And.  Timeopt  <  EED 

*  —  X  1 

Passdata  -  "051  11" 
Ptpoint  =  E 

Case  CTimeopt  >  El  .And.  Timeopt  <  E53 

*  ~  X  E  or  BID 
Passdata  -  "051  IE" 
Ptpoint  -  4 

Case  CTimeopt  >  E4  .And.  Timeopt  <  313 

*  ~  X  3  or  TID 
Passdata  =-  "051  13" 
Ptpoint  -  6 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  X  4  or  QID 
Passdata  -  "Q51  14" 
Ptpoint  "  8 

Case  CTimeopt  -  34  .Or.  Timeopt  =  353 

*  —  X  6  or  Q4h 
Passdata  =  "Q51  15" 
Ptpoint  -  IE 

Case  CTimeopt  =  36  .Or.  Timeopt  -  373 

*  ~  X  IE  or  QEh 

•  Passdata  -  "051  IB" 

Ptpoint  -  S4 
Case  CTimeopt  -  38  .Or.  Timeopt  "  393 

*  —  X  E4  or  Qlh 
Passdata  -  "051  17" 
Ptpoint  -  48 

Endcase 

Do  Replaord 
Loop 

Case  Xactopt  =  3 

norder  -  "Strict  Bedrest" 

Do  Replaord 

Loop 

Case  Xactopt  -  4 

norder    -    "Bedrest   us/   BRP" 
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Do  Replaord 
Loop 

Case  Xactopt  -  5 

Horder  =  "Bedside  Commode" 

Do  Replaord 

Loop 

Case  Xactopt  "  B 

florder  -  "DOB  to  Stretcher  u/  Assist" 
Do  BrTime 

Do  Case 

Case  CTimeopt  <  E5  .Or.  Timeopt  "413 

*  —  Less  than  x  3  or  TID 
Passdata  -  "051  E" 
Ptpoint  =  0 

Case  CTimeopt  >  E4  .And.  Timeopt  <  343 

*  —  X  3  or  less  than  a4h  Cx  63 
Passdata  -  "051  3" 

Ptpoint  "  S 
Case  CTimeopt  -  34  .Or.  Timeopt  "  353 

*  ~  X  B  or  04h 
Passdata  -  "051  4" 
Ptpoint  -  4 

Case  CTimeopt  =  3B  .Or.  Timeopt  =  373 

*  —  X  IE  or  OEh 
Passdata  -  "051  5" 
Ptpoint  -  B 

Case  CTimeopt  =  3B  .Or.  Timeopt  »  393 

*  ~  X  E4  or  Olh 
Passdata  -  "051  6" 
Ptpoint  -  IB 

Endcase 

Do  Replaord 
Loop 

Case  Xactopt  -  7 

florder  -  "Dangle  Legs" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xactopt  -  8 

norder  -  "Keep  on  Back" 

Do  Replaord 

Loop 


189 


Case  Xactopt  "  3 

riorder  "  "May  Shower " 

Do  Replaord 

Loop 

Case  Xactopt  =  10 

tlorder  -  "Turn  Patient" 

Do  B:Time 

Do  Replaord  j 

Loop  ' 

Case  Xactopt  =-11 

riorder  =•  "Turning  Frame" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Dr.  Timeopt  -  413 

*  —  Less  than  QEh 
Passdata  -  "Q25  1" 
Ptpoint  -  0 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 

*  —  Q2h  or  X  IE 
Passdata  -  "QES   2" 
Ptpoint  =-  14 

Case  CTimeopt  "38  .Or.  Timeopt  =  393 

*  —  Qlh  or  X  24 
Passdata  -  "025  3" 
Ptpoint  -  28 

Endcase 

Do  Replaord 
Loop 

Case  Xactopt  "  12 

riorder    -    "Up    in   Chair   ui/    Assist" 
Do   B:Time 

Do   Case 

Case  CTimeopt  <  25  .Or.  Timeopt  "  413 

*  —  Less  than  x  3  or  TID 
Passdata  -  "Q51  1" 
Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  343 

*  —  X  3  or  less  than  Q4h  Cx  63 
Passdata  -  "051  7" 

Ptpoint  -  2 
Case  CTimeopt  "  34  .Or.  Timeopt  =  353 

*  —  X  6  or  04h 
Passdata  -  "051  8" 

Ptpoint  -  4  Ij 
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CasB  CTimeapt  -  36  .Dr.  Timeapt  -  37D 

♦  —  X  IE  or  Q2h 
Passdata  -  "051  9" 
Ptpoint  -  8 

Cass  CTimeopt  -  3B  .Dr.  Timeopt  -  39D 

*  —  X  E4  or  Qlh 
Passdata  -  "051  10" 
Ptpoint  -  IB 

Endcase 

Do  Replaord 
Loop 

Case  Xactopt  =  13 

*  —  Doctor's  Order  Screen 
Dmenu  -=  '  1  ' 

Return 

Case  Xactopt  -  14 

*  —  Master  Screen 
Dmenu  =  '  ' 
Return 

Endcase 
Release  Xactopt 


Enddo 
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*♦••  TinE.PRG  *♦••«*••«•••»•***«»»*•*»**•••••••«•♦••««»**• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E9  November  19B5 

*  Screen  Generated  By:  The  SoFtujare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Determine  the  time  of  orders  for 

*  the  patient. 

*  Input  Files  Used:  Time.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  All  Orders  and  Ncaredb.Dbf  modules. 

*  Routine  Called:  Timehelp.Prg 

*  Modification  Date:  4  February  1986 

*  —  Screen  Input  Program  For  Time  — 

Do  Setup 

Public  Timeopt , Xtimetime 

Xtimetime  =■  SpaceC4] 

Do  While  .T. 

*  —  Screen  Display  A: Time.Scr  — 

Set   Color   To   U+/B,UJ+/B 

Clear 

??   Flash+"S.A:Time.Scr/" 

Set   Color   To   W+/B,UI+/B 

Timeopt  -  41 

Do  Headings 

e  EE, 66  Get  Timeopt  Pict  "99"  Range  1,41 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Timeopt  "1 
Ofreq  -  "PRN" 
Return 

Case  Timeopt  -  S 

Ofreq  =  "Q  1-E  Hr  PRN" 
Return 

Case  Timeopt  "  3 

Ofreq  -  "Q  E-3  Hr  PRN" 
Return 
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Case  Timeopt  =•  4 

Ofreq  -  "Q  3-4  Hr  PRN" 
Return 

Case  Timeopt  "  5 
Ofreq  -  "On  Call" 
Todayonly  -  "T" 
Return 

Case  Timeopt  "  6 
Ofreq  -  "QD" 
Return 

Case  Timeopt  =  7 
Ofreq  -  "HS" 
Return 

Case  Timeopt  =  B 
Ofreq  -  "x  1" 
Todayonly  -  "T" 
Return 

Case  Timeopt  =  9 

*  —  Today  @  

0  17,8  Get  Xtimetime  Pict  "9999' 

Read 

Ofreq  -  "Today  0  "  +  Xtimetime 

Todayonly  =  "T" 

Return 

Case  Timeopt  -  10 

Ofreq  -  "Daily  0  OEOO" 
Return 

Case  Timeopt  =  11 

Ofreq  =  "Daily  0  0400" 
Return 

Case  Timeopt  -  IE 

Ofreq  -  "Daily  0  0600" 
Return 

Case  Timeopt  =  13 

Ofreq  -  "Daily  0  0900" 
Return 

Case  Timeopt  =  14 

Ofreq  =  "Daily  0  1000" 
Return 
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Cose  Timeopt  "  15 

Ofreq  -  "Daily  g  lEOO" 
Return 

Case  Timeopt  =»  16 

Ofreq  -  "Daily  @  1400" 
Return 

Case  Timeopt  -  17 

Ofreq  -  "Daily  @  IBOO" 
Return 

Case  Timeopt  =  IB 

Ofreq  =  "Daily  0  1800" 
Return 

Case  Timeopt  =■  19 

Ofreq  -  "Daily  @  EOOO" 
Return 

Case  Timeopt  =  SO 

Ofreq  -  "Daily  0  2E00" 
Return 

Case  Timeopt  =  El 

Ofreq  -  "Daily  0  E400" 
Return 

Case  Timeopt  =  EE 
Ofreq  -  "BID" 
Return 

Case  Timeopt  "  E3 
Ofreq  -  "D  IE  Hr" 
Return 

Case  Timeopt  =  E4 
Ofreq  -  "x  E" 
Todayonly  -  "T" 
Return 

Case  Timeopt  =  E5 
Ofreq  -  "TID" 
Return 

Case  Timeopt  =  E6 
Ofreq  -  "AC" 
Return 
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Case  Timeopt  =  E7 
Ofreq  -  "PC" 
Return 

Case  Timeopt  ="  EB 
Ofreq  -  "Q  8  Hr" 
Return 

Case  Timeopt  "  E9 
Ofreq  -  "x  3" 
Todayonly  =  "T" 
Return 

Case  Timeopt  =  30 
Ofreq  -  "D  Shift" 
Return 

Case  Timeopt  =  31 
Ofreq  -  "DID" 
Return 

Case  Timeopt  =  3E 
Ofreq  =  "Q  6  Hr" 
Return 

Case  Timeopt  =  33 
Ofreq  -  "x  4" 
Todayonly  -  "T" 
Return 

Case  Timeopt  "=  34 
Ofreq  -  "Q  4  Hr" 
Return 

Case  Timeopt  =  35 
Ofreq  -  "x  6" 
Todayonly  -  "T" 
Return 

Case  Timeopt  "  36 
Ofreq  -  "0  S  Hr" 
Return 

Case  Timeopt  -  37 
Ofreq  -  "x  IS" 
Todayonly  =  "T" 
Return 
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Case  Timeopt  =  3B 
Qfreq  -  "Q  1  Hr" 
Return 

Case  Timeopt  =  39 
OFreq  -  "x  E4" 
Todayonly  -  "T" 
Return 

Case  Timeopt  =  40 

*  --  Help 

Do  B:Timehelp 
Loop 

Case  Timeopt  -  41 

*  --  Return  to  Calling  Screen 
Return 

EndcasB 

Release  Xtimetime 


Enddo 


196 


««««  TIMEHELP.PRG  »«*«««««»««*******»******«*«*««***»*»*«* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  1  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Brief  on-line  help  facility  for 

*  Time.Prg. 

*  Input  Files  Used:  Timehelp.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Time.Prg 

*  Routine  Called:  None 

*  Modification  Date:  E6  January  19B6 
w 

*  —  Screen  Input  Program  For  Timehelp  — 
Do  Setup 

Do  While  .T. 

*  --  Screen  Display  A: Timehelp . Scr  — 

Set  Color  To  UJ+/B,U+/B 

Clear 

??  Flash+"S.A:Timehelp.Scr/" 

e  E4,0 

G  24,37  "Press  Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Return 

Enddo 
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»«««  DIET.PRG  «»***«»»»«««4»«»w«»«««»»»«««««4(»»««w«««»««««»« 

»  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

«  Date:  27  November  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBB 

*  Purpose:  Determine  the  diet  orders  of  the 

*  patient. 

*  Input  Files  Used:  Diet.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc.Menu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:    4  February  1986 

« 

*  —  Screen  Input  Program  For  Diet  — 

Do  Setup 
Public  Xdietopt 

Do  While  .T. 

•  --  Screen  Display  A: Diet.Scr  — 

Set  Color  To  UJ+/B,W+/B 

Clear 

??  Flash+"S.A:Diet .Scr/" 

Set    Color    To   U+ZB,  liJ+ZB 

Xdietopt  =  13 

Do  Headings 

Do  Startup 

@  EE, 66  Get  Xdietopt  Pict  "99"  Range  0,E0 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xdietopt  =  0 
*  --  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdietopt  =-  1 

Morder  "  "Diet  As  Tolerated" 

Do  Replaord 

Loop 
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Cass  Xdietopt  =■  2 

Morder  -  "Clear  Liquids  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  -  3 

Morder  -  "Diabetic  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  =  4 

Morder  -  "Fat-controlled  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  =  5 

Morder  =  "Full  Liquid  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  -  6 

Morder  -  "Infant/Neonat  Bottle  xl" 

Passdata  -  "Q29  1" 

Ptpoint  =  E 

Do  Replaord 

Loop 

Case  Xdietopt  =  '' 

Morder  -  "Infant/Neonat  Bottle  x6" 

Passdata  =  "QS9  2" 

Ptpoint  =-  IE 

Do  Replaord 

Loop 

Case  Xdietopt  ="  B 

Morder  -  "Infant/Neonat  Bottle  xlE" 

Passdata  -  "QEB  3" 

Ptpoint  -  E4 

Do  Replaord 

Loop 

Case  Xdietopt  -  3 

Morder  -  "Mechanical  Soft  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  =  10 

Morder  =  "Na  Controlled  Diet" 

Do  Replaord 

Loop 
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Case  Xdietopt  -  11 
norder  -  "NPO" 
Do  Replaord 
Loop 

Case  Xdietopt  =  IE 

norder  -  "NPO  p  2400" 

Do  Replaord 

Loop 

Case  Xdietopt  -  13 

norder  -  "NPO  u/  Ice  Chips" 

Do  Replaord 

Loop 

Case  Xdietopt  -  14 

Morder  -  "Regular  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  -  15 

norder  -  "Renal/Liver  Disease  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  =  16 

norder  -  "T  &  A  Diet" 

Do  Replaord 

Loop 

Case  Xdietopt  =  17 

norder  =-  "Continuous  Tube  Feedings" 
Do  B:TimB 

Do  Case 

Case  CTimeopt  <  6  .Or.  Timeopt  -  41 D 

*  —  Less  than  1  bag  per  E4  hours 
Passdata  =  "027  1" 

Ptpoint  -  0 
Case  CTimeopt  >  5  .And.  Timeopt  <  223 

*  —  1  bag  per  24  hours 
Passdata  -  "027  2" 
Ptpoint  -  2 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  2  bags  per  24  hours 
Passdata  -  "027  3" 
Ptpoint  -  4 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  --  3  bags  per  24  hours 


200 


Passdata  -  "QE7  4" 
Ptpoint  -  6 
Case  CTimeopt  >  30  .And.  Timeopt  <  34D 

*  —  4  bags  per  24  hours 
Passdata  -  "QE7  5" 
Ptpoint  -  8 

Case  CTimeopt  -  34  .Or.  Timeopt  =  353 

*  —  6  bags  per  S4  hours 
Passdata  =  "027  6" 
Ptpoint  "  12 

Case  CTimeopt  -  36  .Dr.  Timeopt  =  37D 

*  —  12  bags  per  24  hours 
Passdata  -  "027  7" 
Ptpoint  -  24 

Case  CTimeopt  =38  .Or.  Timeopt  =  39D 

*  —  24  bags  per  24  hours 
Passdata  =  "027  8" 
Ptpoint  -  48 

Endcase 

Do  Replaord 
Loop 

Case  Xdietopt  =  18 

Morder  *  "Bolus  Tube  Feedings" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  =413 

*  —  Less  than  04h  or  x  6 
Passdata  =  "027  3" 
Ptpoint  "  0 

Case  CTimeopt  "34  .Or.  Timeopt  -  35  3 

*  —  a4h  or  X  6 
Passdata  -  "027  10" 
Ptpoint  -  5 

Case  CTimeopt  -  36  .Or.  Timeopt  =  373 

*  ~  02h  or  X  12 
Passdata  -  "027  11" 
Ptpoint  -  10 

Case  CTimeopt  -  38  .Or.  Timeopt  =  393 

*  —  Olh  or  X  24 
Passdata  -  "027  12" 
Ptpoint  -  20 

Endcase 

Do  Replaord 
Loop 
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Cqsb  XdiBtopt  -  19 

*  —  Doctor's  Order  Screen 
Dmenu  -  "1" 

Return 

Case  Xdietopt  =  20 

*  --  Master  Screen 
Dmenu  =  "  " 
Return 

Endcase 

Release  Xdietopt 


Enddo 
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*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 
«  Date:  a  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Determine  First  stage  lU  needs  of 

*  the  patient. 

*  Input  Files  Used:  lUA.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Doc_nenu . Prg 

*  Routine  Called:  lUB.Prg 

*  Modification  Date:    4  February  1986 

« 

*  —  Screen  Input  Program  For  lUA  — 

» 

Do  Setup 

Public   Xivaopt ,  riorderl 

Do   Uhile    .T. 

*  —  Screen  Display  A:IUA.Scr  — 

Set  Color  To  U+/B,UJ-^/B 

Clear 

??  Flash+"S.A: lUA.Scr/" 

Set  Color  To  U)+/B,IJ+/B 

Xivaopt  "  09 

Do  Headings 

Do  Startup 

e  EE,6B  Get  Xivaopt  Pict  "99"  Range  0,10 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xivaopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xivaopt  =  1 

Morderl  -  "Start  lU  of" 
Passdata  -  "Q30  1" 
Ptpoint  -  E 
Todayonly  -  "T" 
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Do  B: lUB 
Loop 

Case  XivQopt  "  E 

Morderl  -  "Alternate  lU  tj/" 

Do  B: lUB 

Loop 

Case  Xivaopt  =  3 

norderl  -  "Folloiu  lU  w/" 

Do  B: lUB 

Loop 

Case  Xivaopt  -  4 

Morderl  -  "Interrupt  lU  for" 

Do  B: lUB 

Loop 

Case  Xivaopt  -  5 

norderl  =  "Start  End  lU  of" 

Passdata  -  "Q30  1" 

Ptpoint  "  E 

Today only  -  "T" 

Do  B: lUB 

Loop 

Case  Xivaopt  =  6 

riorder  =  "Discontinue  lU" 

Do  Replaord 

Loop 

Case  Xivaopt  =  7 

riorder  "  "Heparin  Lock" 
Passdata  -  "Q73  1" 
Ptpoint  -  4 
Do  Replaord 
Loop 

Case  Xivaopt  "  B 

riorder  "  "flultilumen  Line" 
Passdata  -  "Q72  3" 
Ptpoint  -  a 
Do  Replaord 
Loop 

Case  Xivaopt  -  3 

*  —  Doctor's  Order  Screen 

Dmenu  -  "1" 

Return 
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Case  Xivaopt  -  10 
*  —  Naster  Screen 
Dmenu  =  "  " 
Return 

Endcase 
Release  Xivaopt 


Enddo 
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*  Author:  Gory  R.  Harmeyer  LCDR  NC  USN 
«  Date:                 B  December  1985 

*  Screen  Generated  By:  The  Scftiuare  Bottling  Company 
«  Of  Neu  York,  cl9B5 

The  doctor  selects  an  lU  solution 
for  the  patient. 
lUB.Scr  and  Procfile.Prg 
None 
lUA.Prg 
None 
19  February  1986 


*  Purpose: 

m 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


*  —  Screen  Input  Program  For  lUB  — 

» 

Do  Setup 

Public  Xivbopt , Blood 

Blood  =  .F. 

Do  While  .T. 

♦  —  Screen  Display  A:IUB.Scr  — 

Set   Color   To   U+/B,UI+/B 

Clear 

??    Flash+"S.A: lUB.Scr/" 

Set    Color    To   U+/B,UI+/B 

Xivbopt  =■  1 

Do  Headings 

e  E2,67  Get  Xivbopt  Pict  "9"  Range  1,8 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xivbopt  =  1 

Herder  -  norderl  +  "  D5/.45  NaCl" 

Do  B: lUC 

Return 

Case  Xivbopt  -  E 

norder  -  Morderl  +  "  RL" 

Do  B: lUC 

Return 

Case  Xivbopt  =  3 

norder  ■=  Norderl  +  "  D5RL" 
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Do  B: lUC 
Return 

Case  Xivbopt  -  4 

norder  -  Morderl  +  "  D5UJ" 

Do  B: lUC 

Return 

Case  Xivbopt  -  5 

norder  -  Horderl  +  "  NS" 

Do  B: lUC 

Return 

Case  Xivbopt  -  B 

norder  -  norderl  +  "  D5NS" 

Do  B: lUC 

Return 

Case  Xivbopt  "  7 

norder  -  norderl  +  "  Whole  Bid" 
Blood  -  .T. 
Do  B: lUC 
Return 

Case  Xivbopt  -  B 

norder  =■  norderl  +  "  Packed  Cells" 
Blood  -  .T. 
Do  B: lUC 
Return 

Endcase 
Release  Xivbopt 


Enddo 
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*»«**  lUC.PRG  **♦*»»♦**«*♦*«**»*»•*«••»•**•»»*»««»»»»•« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  1395 

*  Screen  Generated  By:  The  Softujore  Bottling  Company 

*  Of  New  York,  clSBB 

*  Purpose:  Determine  lU  infusion  rate  for 

*  patient  orders. 

*  Input  Files  Used:  lUC.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  lUB.Prg 

*  Routine  Called:  None 

*  nodification  Date:    4  February  1986 

» 

*  —  Screen  Input  Program  For  lUC  -- 

» 

Do  Setup 
Public  Xivcopt 

Do  Uhile  .T. 

*  —  Screen  Display  A:IUC.Scr  — 

Set   Color    To   UJ+/B,UI+/B 

Clear 

??    Flash+"S.A: lUC.Scr/" 

Set   Color    To   UI+/B,U)+/B 

Xivcopt  -  6 

Do  Headings 

e  22, 57  Get  Xivcopt  Pict  "9"  Range  1,9 

Read 

♦  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xivcopt  -  1 

Ofreq  -  "Infuse  o  30n" 
If  Blood  -  .T. 

Passdata  -  "075  1" 

Ptpoint  -  Ptpoint  +  2 
Else 

Passdata  -  "072  3" 

Ptpoint  -  Ptpoint  ■»-  9 
Endif 

Do  Replaord 
Return 

Case  Xivcopt  "  2 

Ofreq  -  "Infuse  o  IHr" 
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If  Blood  -  .T. 

Passdata  -  "Q75  1" 
Ptpoint  -  Ptpoint  +  S 

Else 

Passdata  -  "072  3" 
Ptpoint  -  Ptpoint  +  B 

Endif 

Do  Replaord 

Return 

Case  Xivcopt  "  3 

Ofreq  -  "Infuse  o  2Hr" 

If  Blood  -  .T. 

Passdata  -  "Q75  1" 
Ptpoint  -  Ptpoint  +  E 

Else 

Passdata  -  "072  3" 
Ptpoint  -  Ptpoint  +  8 

Endif 

Do  Replaord 

Return 

Case  Xivcopt  -  4 

Ofreq  -  "Infuse  o  4Hr" 

If  Blood  -  .T. 

Passdata  -  "075  1" 
Ptpoint  =  Ptpoint  +  2 

Else 

Passdata  =  "072  3" 
Ptpoint  -  Ptpoint  +  8 

Endif 

Do  Replaord 

Return 

Case  Xivcopt  -  5 

Ofreq  -  "Infuse  o  BHr" 
Passdata  -  "072  2" 
Ptpoint  -  Ptpoint  +  B 
Do  Replaord 
Return 

Case  Xivcopt  -  6 

Ofreq  -  "Infuse  o  8Hr" 
Passdata  -  "072  2" 
Ptpoint  -  Ptpoint  +  6 
Do  Replaord 
Return 

Case  Xivcopt  =•  7 

Ofreq  -  "Infuse  o  12H" 
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Passdata  -  "QTS  1" 
Ptpoint  -  Ptpoint  +  4 
Do  Replaord 
Return 

Case  Xivcopt  "  B 

Ofreq  -  "Infuse  o  E4H' 
Passdata  -  "Q7E  1" 
Ptpoint  -  Ptpoint  +  4 
Do  Replaord 
Return 

Endcase 

Release  Xivcopt , Blood 


Enddo 
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««««  LAB . PRG  ********************************************* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Determine  laboratory  orders  of  the 

*  patient. 

*  Input  Files  Used:  Lab.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Rnutine:  Dnc.nenu.Prg 

*  Routine  Called:  Time.Prg 

»  Modification  Date:  4  February  19B6 
m 

*  —  Screen  Input  Program  For  Lab  — 

m 

Do   Setup 
Public   Xlabopt 

Do   Ulhile    .T. 

♦  —  Screen  Display  A: Lab.Scr  — 

Set   Color   To   UI+/B,UJ+/B 

Clear 

??   Flash+"S.A:Lab.Scr/" 

Set   Color   To   UJ+/B,U+/B 

Xlabopt  -  32 

Do  Headings 

Do  Startup 

e  EE.BB  Get  Xlabopt  Pict  "S9"  Range  0,33 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xlabopt  -  0 
*  ~  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xlabopt  -  1 

Morder  =  "Bilirubin" 

Do  B:Time 

Do  Labcount 

Do  Replaord 

Loop 
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Case  Xlabopt  -  E 
norder  -  "BUN" 
Do  BiTime 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  3 

norder  -  "Calcium" 

Do  BrTime 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  =  4 
norder  -  "Cloride" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  5 
norder  -  "CDE" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  •=  6 

norder  =  "Creatinine" 

Do  B:Time 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  -  7 
norder  =  "Glucose" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  8 

norder  =  "Phosphate" 

Do  B:Time 

Do  Labcount 

Do  Replaord 

Loop 
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Case  Xlabopt  -  9 

tlorder  "  "Potassium' 

Do  BrTime 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  -  10 
Morder  -  "Sodium" 
Do  B:TimB 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  11 

norder  =  "Uric  Acid' 

Do  BrTime 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  =  12 
norder  -  "Amylase" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  13 
norder  -  "CPK" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  14 
norder  -  "LDH" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  15 
norder  -  "SGOT" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 
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Case  Xlabopt  -  IB 
norder  -  "SGPT" 
Do  BcTime 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  17 
norder  -  "CBC" 
Do  BiTime 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  "  la 
norder  -  "Flatlets" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  19 
norder  =  "Protime" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  EO 
norder  -  "Sed  Rate" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  ="  21 
norder  =  "ABO  &  Rh" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  BB 

norder  -  "f=iBG  CFrom  f=i-line]" 

Do  BrTime 

Do  Labcount 

Do  Replaord 

Loop 
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Case  Xlabopt  =*=  E3 

Harder  -  "ABG  CstickD" 
Do  B:Time 

Do  Case 

Case  CXtimeopt  <  25  .Or.  Xtimeopt  =-  41] 

*  —  Less  than  x  3  or  TID 
Passdata  "  "Q45  1" 
Ptpoint  =  0 

Case  CXtimeopt  >  24  ,  (=ind .  Xtimeopt  <  343 

*  —  X  3  CTIDD  or  less  than  □4h  Cx  BD 
Passdata  =  "Q45  E" 

Ptpoint  -  2 
Case  CXtimeopt  -  34  .Or.  Xtimeopt  =  353 

*  —  Q4h  or  X  B 
Passdata  -  "045  3" 
Ptpoint  -  4 

Case  CXtimeopt  =  3B  .Or.  Xtimeopt  =  373 

*  —  Q2h  or  X  12 
Passdata  -  "045  4" 
Ptpoint  -  a 

Case  CXtimeopt  -  3B  .Or.  Xtimeopt  -  393 

*  —  Qlh  or  X  24 
Passdata  =  "045  5" 
Ptpoint  -  16 

Endcase 

Do  Replaord 
Loop 

Case  Xlabopt  -  24 

norder  -  "Bid  Cultures" 
Do  B:Time 

Do  Case 

Case  CXtimeopt  <  25  .Or.  Xtimeopt  -  413 

*  —  Less  than  x  3  or  TID 
Passdata  -  "045  1" 
Ptpoint  =  0 

Case  CXtimeopt  >  24  .And.  Xtimeopt  <  343 

*  —  X  3  CTID3  or  less  than  a4h  Cx  B3 
Passdata  -  "046  2" 

Ptpoint  -  2 
Case  CXtimeopt  -  34  .Or.  Xtimeopt  =  353 

*  --  Q4h  or  X  B 
Passdata  -  "04B  3" 
Ptpoint  -  4 

Case  CXtimeopt  -  36  .Or.  Xtimeopt  =  373 

*  —  Q2h  or  X  12 
Passdata  -  "046  4" 
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Ptpoint  ■=  a 
Case  CXtimeopt  -  38  .Dr.  Xtimeopt  -  39] 
*  —  Qlh  or  X  E4 
PassdQta  -  "OHB  5" 
Ptpoint  -  IB 
EndcQSB 

Do  Replaord 
Loop 

Case  Xlabopt  ="  25 

norder  -  "Culture  &  Sen" 

Do  B:Time 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  -  26 

norder  -  "Cold  Agglutins" 

Do  B:Time 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  -  27 
norder  -  "HCG" 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  EB 

norder  -  "Dec  Bid  in  Stools" 

Do  B:Time 

Do  Labcount 

Do  Replaord 

Loop 

Case  Xlabopt  -  29 
norder  -  "RPR" 
Do  B.-Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  30 
norder  -  "SnA  B" 
Do  B:Time 
Do  Labcount 


216 


Do  Replaord 
Loop 

Case  Xlabopt  =  31 
Morder  -  "UA" 
Da  BrTime 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  32 

*  —  Doctor's  Order  Screen 
Dmenu  -  ' 1 ' 

Return 

Case  Xactopt  =  33 

*  —  Master  Screen 
Dmenu  =  '  ' 
Return 

Endcase 
Release  Xlabopt 


Enddo 
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♦***  LUN6.PRG  ♦♦♦****•**«*•♦•♦••»••«»••*«»•«•*««•««•*•••♦* 

»  f=<uthor:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E9  November  1985 

*  Screen  Generated  By:  The  Softiuare  Battling  Company 

*  Of  Neui  York,  cl385 

*  Purpose:  Menu  providing  respiratory  therapy 

*  options, 

*  Input  Files  Used:  Lung.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc.Menu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  EB  January  1986 
m 

*  --    Screen  Input  Program  For  Lung  — 

» 

Do  Setup 

Public    Xlungopt , Xliteropt , Xliter 

Do   Ulhile    .T. 

*  —  Screen  Display  A: Lung.Scr  — 

Set  Color  To  W+/B,U-»-/B 

Clear 

??  Flash+"S.A:Lung.Scr/" 

Set   Color    To   UI+/B,U)+/B 

Xlungopt  -  14 

Do  Headings 

Do  Startup 

e  21,66  Get  Xlungopt  Pict  "99"  Range  0,15 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xlungopt  -  0     .-  - 
•  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xlungopt  "  1 

Morder  "  "Chest  Pulmonary  Therapy" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  EE    .Or.  Timeopt  -  41D 
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*  —  Less  than  BID  or  x  2 
Passdata  -  "068  1" 
Ptpoint  -  0 

Case  CTimeopt  >  El  .And.  Timeopt  <  25] 

*  ~  BID  or  X  2 
Passdata  -  "068  2" 
Ptpoint  -  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  31] 

*  ~  TID  or  X  3 
Passdata  -  "068  3" 
Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34] 

*  —  DID  or  X  4 
Passdata  -  "068  4" 
Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35] 

*  —  04h  or  X  6 
Passdata  -  "068  5" 
Ptpoint  *  5 

Case  CTimeopt  ■=  36  .Or.  Timeopt  -  37] 

*  ~  02h  or  X  12 
Passdata  =  "068  6" 
Ptpoint  -  12 

Case  CTimeopt  =  38  .Dr.  Timeopt  -  39] 

*  —  Olh  or  X  24 
Passdata  -  "068  7" 
Ptpoint  =  24 

Endcase 

Do  Replaord 
Loop 

Case  Xlungopt  -  2 

Morder  -  "Cough  &  Deep  Breath" 

Do  B:Time 

Do  Cough 

Do  Replaord 

Loop 

Case  Xlungopt  "  3 

Morder  •  "Incentive  Spirometer" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  31  .Or.  Timeopt  -  41] 

*  —  Less  than  04h  or  x  j 
Passdata  -  "064  1" 
Ptpoint  -  0 

Case  CTimeopt  -  34  .Dr.  Timeopt  -  35] 
»  ~  04h  or  X  6 
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Passdata  -  "064  E" 
Ptpoint  -  2 
Case  CTimeopt  -  36  .Or.  Timeopt  =•  37] 

*  —  OEh  or  X  12 
Passdata  -  "064  3" 
Ptpoint  -  4 

Case  CTimeopt  "  3B  .Or.  Timeopt  "  39] 

*  —  Olh  or  X  24 
Passdata  -  "064  4" 
Ptpoint  -  8 

Endcase 

Do  Replaord 
Loop 

Case  Xlungopt  =  4 
norder  -  "IPPB" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  22  .Dr.  Timeopt  -  41] 

*  —  Less  than  BID  or  x  2 
Passdata  -  "066  1" 
Ptpoint  -  0 

Case  CTimeopt  >  21  .And.  Timeopt  <  25] 

*  —  BID  or  X  2 
Passdata  -  "066  2" 
Ptpoint  =  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  31] 

*  —  TID  or  X  3 
Passdata  -  "056  3" 
Ptpoint  "  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34] 

*  —  DID  or  X  4 
Passdata  -  "056  4" 
Ptpoint  -  4 

Case  CTimeopt  *  34  .Or.  Timeopt  =-  35] 

*  —  a4h  or  X  6 
Passdata  -  "065  5" 
Ptpoint  -  6 

Case  CTimeopt  -  36  .Or.  Timeopt  "  37] 

*  —  02h  or  X  12 
Passdata  -  "065  6" 
Ptpoint  -  12 

Case  CTimeopt  -  30  .Or.  Timeopt  -  35] 

*  —  Olh  or  X  24 
Passdata  -  "055  7" 
Ptpoint  -  24 

Endcase 
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Do  Replaard 
Loop 

Case  Xlungopt  =  5 

Harder  -  "Suctioning" 
Do  B:Time 

Do  Cos: 

Case  CTimeopt  <  34  .Or.  Timeopt  -  413 

*  —  Less  than  Q4h  or  x  6 
Passdata  -  "069  1" 
Ptpoint  -  0 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35D 

*  —  a4h  or  X  6 
Passdata  =  "069  E" 
Ptpoint  "  E 

Case  CTimeopt  "  36  .Or.  Timeopt  -  37D 

*  —  OEh  or  X  IE 
Passdata  -  "068  3" 
Ptpoint  -  4 

Case  CTimeopt  "  3B  .Or.  Timeopt  -  393 

*  —  Qlh  or  X  S4 
Passdata  -  "068  4" 
Ptpoint  =  8 

Endcase 

Do  Replaord 
Loop 

Case  Xlungopt  -  6 

Morder  "  "Trach  Care" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  E5  .Or.  Timeopt  -  41D 

*  —  Less  than  TID  or  x  3 
Passdata  -  "070  1" 
Ptpoint  -  0 

Case  CTimeopt  >  S4  .And.  Timeopt  <  343 

*  —  TID  Cx  33  or  less  than  04h  Cx  63 
Passdata  -  "070  S" 

Ptpoint  =  4 
Case  CTimeopt  "  34  .Or.  Timeopt  -  353 

*  ~  04h  or  X  6 
Passdata  -  "070  3" 
Ptpoint  -  8 

Case  CTimeopt  =  36  .Or.  Timeopt  =  373 
»  —  OEh  or  X  IE 
Passdata  -  "070  4" 
Ptpoint  -  16 


221 


Case  CTimeopt  -  38  .Or.  Timeopt  =  33] 
♦  —  Qlh  or  X  24 
Passdata  -  "070  5" 
Ptpoint  -  3E 
EndcQse 

Do  Replaord 
Loop 

Case  Xlungopt  -  7 

norder  -  "Uentilator" 
Passdata  -  "071  1" 
Ptpoint  -  10 
Do  Replaord 
Loop 

Case  Xlungopt  =-  B 

Horder  -  "Uean  from  Uentilator" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xlungopt  -  3 
Do  Liter 

riorder  -  "Croup  Tent  "  +  Xliter 
Do  B:Time 

Passdata  -  "067  1" 
Ptpoint  -  a 
Do  Replaord 
Loop 

Case  Xlungopt  =-  10 
Do  Liter 

norder  -  "Mask  "  +  Xliter 
Do  B:TimB 

Passdata  -  "063  1" 
Ptpoint  -  E 
Do  Replaord 
Loop 

Case  Xlungopt  -  11 
Do  Liter 

norder  -  "Mist  Tent  "  +  Xliter 
Do  B:Time 

Passdata  -  "067  2" 
Ptpoint  -  a 
Do  Replaord 
Loop 
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Case  Xlungopt  -  IE 
Do  Liter 

riorder  -  "Nasal  Prongs  "  +  Xliter 
Do  BrTime 

Passdata  -  "063  1" 
Ptpoint  -  a 
Do  Replaord 
Loop 

Case  Xlungopt  "  13 
Do  Liter 

norder  -  "Oxyhood  "  +  Xliter 
Do  B:TimB 

Passdata  -  "063  2" 
Ptpoint  *  E 
Do  Replaord 
Loop 

Case  Xlungopt  -  14 

*  —  Doctor's  Order  Screen 
Dmenu  -  ' 1 ' 

Return 

Case  Xlungopt  -  15 

*  —  Master  Screen 
Dmenu  -  '  ' 
Return 

Endcase 

Release  Xlungopt, Xliteropt , Xliter 


Enddo 
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»♦*♦  nONITDR.PRG  ♦♦••»••*»♦♦•**»♦•»♦♦♦•♦♦♦♦♦»♦»•♦•*♦»•••♦* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  19B5 

*  Screen  Generated  By:  The  Softiuare  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Determine  monitoring  orders  of  the 

*  patient. 

*  Input  Files  Used:  Monitor. Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc.tlenu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1986 

*  —  Screen  Input  Program  For  Monitor  — 

Do  Setup 
Public  Xmonopt 

Do  Uhile  .T. 

*  —  Screen  Display  A: Monitor . Scr  — 

Set   Color   To  UJ+/B,UJ+/B 

Clear 

?7   Flash+"S.A:Monitor.Scr/" 

Set   Color   To   U)+/B,  Ixl+ZB 

Xmonopt  =-  19 

Do  Headings 

Do  Startup 

e  EE,66  Get  Xmonopt  Pict  "99"  Range  0,20 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xmonopt  -  0       ,  - 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xmonopt  -  1 

Morder  -  "Apnea  Monitor" 
Passdata  -  "083  1" 
Monpoint  -  B 
Do  Replaord 
Loop 
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CQ3e  Xmonopt  "  E 

norder  -  "A-line  Set-up" 

Passdata  -  "QIB  1" 

Ptpoint  -  4 

Todayonly  -  "T" 

Do  Replaord 

Loop 

Case  Xmonopt  "  3 

Horder  -  "A-line  Readings" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt  -  413 

*  —  Less  than  QSh  or  x  IE 
Passdata  -  "Q19  1" 
Ptpoint  -  0 

Case  CTimeopt  "  36  .Dr.  Timeopt  =  37] 

*  —  QSh  or  X  IE 
Passdata  -  "013  E" 
Ptpoint  -  E 

Case  CTimeopt  "  36  .Dr.  Timeopt  -  393 

*  —  Qlh  or  X  E4 
Passdata  -  "019  3" 
Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  "  4 

norder  "  "Cardiac  Honitor" 
Passdata  -  "08E  1" 
rionpoint  "  6 
Do  Replaord 
Loop 

Case  Xmonopt  -  5 

norder  -  "Cardiac  Output" 
Do  BrTima 

Do  Case 

Case  CTimeopt  <  E5  .Dr.  Timeopt  -  413 

*  —  Less  than  TID  or  x  3 
Passdata  -  "OSS  1" 
Ptpoint  -  0 

Case  CTimeopt  >  S4  .And.  Timeopt  <  343 

*  —  TID  Cx  33  and  less  than  Q4h  Cx  63 
Passdata  -  "OSE  S" 
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Ptpoint  -  E 
Case  CTimeopt  -  34  .Or.  Timeopt  -  35D 

*  —  Q4h  or  X  B 
Passdata  -  "022  3" 
Ptpoint  -  4 

Case  CTimeopt  -  36  .Or.  Timeopt  -  37D 

*  —  QSh  or  X  IE 
Passdata  -  "QEE  4" 
Ptpoint  =■  a 

Case  CTimeopt  -  38  .Dr.  Timeopt  -  393 

*  —  Qlh  or  X  E4 
Passdata  -  "QEE  5" 
Ptpoint  =  16 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  6 

riorder  =  "Circulation  Checks" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt  =  41D 

»    --   Less  than  QEh  or  x  IE 

Passdata  -  "QIO  1" 

Ptpoint  =■  0 
Case  CTimeopt  "  36  .Or.  Timeopt  =  37D 

*  —  QEh  or  X  IE 
Passdata  -  "QIO  E" 
Ptpoint  =  E 

Case  CTimeopt  -=  36  .Or.  Timeopt  -  393 

*  —  Qlh  or  X  E4 
Passdata  -  "010  3" 
Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  7 

norder  -  "CUP  Readings  CHanuallyD" 
Do  BiTime 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt  -  413 

*  —  Less  than  QEh  or  x  IE 
Passdata  -  "QIE  1" 
Ptpoint  -  0 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 
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*  ~  Q2h  or  X  IE 
Passdata  -  "QIE  2" 
Ptpoint  "  E 

Cose  CTimeopt  =38  .Dr.  Timeopt  -  393 

*  —  Qlh  or  X  E4 
Passdata  -  "QIE  3" 
Ptpoint  -  4 

Endcase 

Do  Reploord 
Loop 

Case  Xmonopt  =  B 

Morder  -  "Fundus  Checks" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt  =413 

*  —  Less  than  QEh  or  x  IE 
Passdata  =  "014  1" 
Ptpoint  -  0 

Case  CTimeopt  "36  .Or.  Timeopt  "  373 

*  —  QEh  or  X  IS 
Passdata  -  "Q14  E" 
Ptpoint  -  E 

Case  CTimeopt  -  38  .Or.  Timeopt  -  393 

*  —  Qlh  or  X  E4 
Passdata  =  "Q14  3" 
Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  9 

norder  -  "Intake  &  Output" 
Do  B:TimB 

Do  Case 

Case  CTimeopt  <  E5  .Or.  Timeopt  =  413 

*  —  Less  than  Q8h  or  x  3 
Passdata  -  "Q9  1" 
Ptpoint  =  0 

Case  CTimeopt  >  S4  .And.  Timeopt  <  343 

*  —  Q8h  Cx  33  and  less  than  a4h  Cx  63 
Passdata  -  "Q9  S" 

Ptpoint  -  E 
Case  CTimeopt  =34  .Or.  Timeopt  =  353 

*  —  Q4h  or  X  6 
Passdata  -  "Q9  3" 
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Ptpoint  -  4 
Case  CTimeopt  -  3B  .Or.  Timeopt  =■  37] 

*  —  QEh  or  X  IE 
Passdata  -  "Q3  4" 
Ptpoint  -  8 

Case  CTimeopt  -  3B  .Or.  Timeopt  -  33] 

*  —  Qlh  or  X  E4 
Passdata  -  "03  5" 
Ptpoint  -  16 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  10 

norder  -  "ICP  CMonitor]  Set-Up" 

Passdata  -  "OE  3" 

Ptpoint  "  4 

Todayonly  -  "T" 

Do  Replaord 

Loop 

Case  Xmonopt  =  11 

norder  -  "Manual  ICP  Readings" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt  =  413 

*  —  Less  than  QEh  or  x  IS 
Passdata  =  "013  1" 
Ptpoint  =  0 

Case  CTimeopt  =  35  .Dr.  Timeopt  =  37] 

*  —  QEh  or  X  IE 
Passdata  -  "013  S" 
Ptpoint  -  E 

Case  CTimeopt  -  38  .Or.  Timeopt  =  33] 

*  —  Olh  or  X  E4 
Passdata  -  "013  3" 
Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  IE 

Norder  -=  "Monitor  ICP  Readings" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  35  .Or.  Timeopt  =  41] 
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*  —  Less  than  Q2h  or  x  IE 
Passdata  -  "QEO  1" 
Ptpoint  -  0 

Case  CTimeopt  -  36  .Or.  Timeopt  =  373 

*  —  QEh  or  X  IS 
Passdata  -  "QEO  E" 
Ptpoint  -  E 

Case  CTimeopt  -  38  .Or.  Timeopt  -  39] 

*  —  Qlh  or  X  S4 
Passdata  -  "QEO  3" 
Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =■  13 

Morder  "  "Neuro  Checks" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  =  413 

*  —  Less  than  a4h  or  x  B 
Passdata  -  "Oil  1" 
Ptpoint  -  0 

Case  CTimeopt  =  34  .Or.  Timeopt  =  353 

*  —  Q4h  or  X  6 
Passdata  -  "Qll  E" 
Ptpoint  "  3 

Case  CTimeopt  -  36  .Or.  Timeopt  •=  373 

*  —  QEh  or  X  IE 
Passdata  -  "Qll  3" 
Ptpoint  -  6 

Case  CTimeopt  -  3B  .Or.  Timeopt  =  333 

*  —  Qlh  or  X  E4 
Passdata  -  "Qll  4" 
Ptpoint  -  IE 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  -  14 

Norder  -  "Pressure  Monitor" 
Passdata  -  "Q85  1" 
Honpoint  "  5 
Do  Replaord 
Loop 
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Case  Xmonopt  =  15 

norder  -  "PAP/PA  Uedge  CReadings]" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  34  .Dr.  Timeopt  -  413 

*  —  Less  than  Q4h  or  x  6 
Passdata  =  "Q21  1" 
Ptpoint  -  0 

Case  CTimeopt  -  34  .Dr.  Timeopt  -  353 

*  —  a4h  or  X  6 
Passdata  =  "QEl  E" 
Ptpoint  =  2 

Case  CTimeopt  "  36  .Dr.  Timeopt  "=  373 

*  —  aah  or  X  IE 
Passdata  -  "021  3" 
Ptpoint  -  4 

Case  CTimeopt  "  38  .Dr.  Timeopt  =■  393 

*  —  Qlh  or  X  24 
Passdata  =  "021  4" 
Ptpoint  -  B 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  IB 

Horder   -    "Suian-Ganz   Set-up" 

Passdata  =  "QIB  1" 

Ptpoint  -  4 

Todayonly  =  "T" 

Do  Replaord 

Loop 

Case  Xmonopt  -  17 

Norder  =•  "Temperature  flonitor" 

Passdata  -  "034  1" 

Monpoint  -  6 

Do  Replaord 

Loop 

Case  Xmonopt  "  18 

Norder  "  "Transcutaneous  Nonitor" 

Passdata  -  "015  1" 

Ptpoint  "  B 

Do  Replaord 

Loop 

Case  Xmonopt  "  19 

*  —  Doctor's  Order  Screen 
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Dmenu  -  '1' 
Return 

Case  Xmanopt  =  20 
*  —  flaster  Screen 
Dmenu  -  '  ' 
Return 

EndcQse 
Release  Xmonopt 


Enddo 
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«  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  29  November  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl3B5 

*  Purpose:  One  of  two  program  modules  used  to 

*  determine  phamacy  orders  of  the 

*  patient. 

*  Input  Files  Used:  rionitor.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc^flenu.Prg 

*  Routine  Called:  Time,  PhamE  and  Phamhelp.Prg 

*  Modification  Date:  4  February  19BB 
m 

*  —  Screen  Input  Program  For  Phaml  — 

m 

Do  Setup 

Public    Xphamlopt 

Do   Uihile    .T. 

*  —  Screen  Display  A:Phaml.Scr  — 

Set  Color  To  U+/B,IjlI+/B 

Clear 

??  Flash+"S.A:Phaml .Scr/" 

Set  Color  To  U+/B,U+/B 

Xphamlopt  -  25 

Do  Headings 

Do  Startup 

e  22,66  Get  Xphamlopt  Pict  "99"  Range  1,27 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xphamlopt  =  1 

Morder  -  "Benadryl  25mg  C03" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  2 

norder  -  "Benadryl  SOmg  ClflD" 
Do  BiTime 
Do  Regmeds 
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Do  Replaord 
Loop 

Case  Xphamlopt  -  3 

norder  -  "Benadryl  50mg  CIU3" 

Do  B:Time 

Do  lUmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  4 

norder  -  "Dimetapp  4mg  CD3" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  "  5 

norder  "  "Dimetapp  Elix  5mg  COD 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  »  6 

norder  =  "Phenergan  ESmg  CDD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  "  7 

norder  "  "Phenergan  E5mg  CinD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  8 

norder  -  "Phenergan  25mg  CSPD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  9 

norder  -  "f=impicillin  E50mg  CQ]" 
Do  B:Time 
Do  Regmeds 


233 


Do  Replaord 
Loop 

Case  Xphamlopt  -  10 

norder  -  "f=impicillin  500mg  CIMD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  11 

norder  -  "Ampicillin  SOOmg  CIUD" 

Do  BrTime 

Do  lUmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  12 

norder  -  "Ancef  . 5Gm  CinD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  ="  13 

norder  -  "Ancef  .5Gm  CIU]" 

Do  B:Time 

Do  lUmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  14 

norder  -  "Cefadyl  500mg  Cin]" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop  .---- 

Case  Xphamlopt  -  15 

norder  -  "Cefadyl  l.OGm  Cin]" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  IB 

norder  -  "Cefadyl  l.OGm  CIUD" 
Do  B:Time 
Do  lUmeds 
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Do  ReplQord 
Loop 

Case  Xphamlopt  -  17 

Morder  -  "Erythromycin  E50mg  COr' 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  18 

Morder  =  "Erythromycin  Susp  EOOmg  CD3" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  =  19 

Morder  -  "Keflex   E50mg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  20 

Morder  -  "Keflex  Susp  lEBmg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  =■  SI 

Morder  -  "Sulfacetamine  105;  Solt  COpD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  E2 

Morder  -  "Tetracycline  ESOmg  CQD" 

Do  B:TimB 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  E3 

Morder  -  "Tetracycline  SOOmg  CIUD" 
Do  B:Time 
Do  lUmeds 
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Oa  Replaord 
Loop 

Case  Xphamlopt  -  S4 

♦  —  Help 

Da  BiPhamhelp 
Loop 

Case  Xphamlopt  -  25 

*  --   Next    Screen    Ctlore   fledsD 
Do   B:Pham2 

Loop 

Case  Xphamlopt  -  EB 

•  --  Dr's  Order  Screen 
Dmenu  -  ' 1 ' 

Return 

Case  Xphamlopt  =  27 

*  —  Master  Screen 
Dmenu  =  '  ' 
Return 

Endcase 

Release  Xphamlopt 


Enddo 
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4t«««  PH^ns . PRG  *******«««********************************i 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E9  Nov  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  One  of  two  program  modules  to 

*  determine  pharmacy  orders  of  the 
»  patient. 

*  Input  Files  Used:  PhamS . Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Phaml.Prg 

*  Routine  Called:  Time.Prg 

*  nodification  Date:  4  February  1986 
» 

*  —  Screen  Input  Program  For  PhamS  — 

Do  Setup 

Public  XphamSopt 

Do  While  .T. 

*  —  Screen  Display  A:PhamE.Scr  — 

Set   Color   To   U)+/B,UJ+/B 

Clear 

??   Flash+"S.A:PhamE.Scr/" 

Set   Color   To   IjJ+/B,U)+/B 

XphamSopt  =  24 

Do  Headings 

Do  Startup 

e  EE,B6  Get  XphamEopt  Pict  "99"  Range  1 , E4 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  XphamEopt  -  1 

Morder  -  "Boric  Acid  S>.   Solt  CIV 
Do  B:Time 

Do  Case 

•  —  Expert  system  data 

Case  CTimeopt  <  6  .Or.  Timeopt  -  411 

Passdata  -  "049  5" 

Ptpoint  -  0 
Case  CTimeopt  >  5  .And.  Timeopt  <  34] 

Passdata  =  "049  1" 

Ptpoint  -  S 
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Case  CTimeopt  *  34  .Dr.  Timeopt  -  35] 

PassdatQ  -  "QHB  E" 

Ptpoint  -  3 
Case  CTimeopt  •»  36  .Or.  Timeopt  -  37D 

Passdata  -  "D4B  3" 

Ptpoint  -  6 
Case  CTimeopt  -  3B  .Dr.  Timeopt  -  333 

Passdata  -  "048  4" 

Ptpoint  -  12 
EndcasB 

Do  Replaord 
Loop 

Case  Xpham2opt  *  E 

norder    -    "f=itrapine    0.4mg    CD]" 

Do  B : Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  "*  3 

norder  -  "Atropine  0.4mg  CIN]" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  "  4 

norder  -  "Ualium  5mg  CD]" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  -  5 

norder  -  "Ualium  5mg  Cin]" 

Do  B.-Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  -  B 

norder  -  "Ualium  5mg  CIU]" 

Do  B:Time 

Do  lUmeds 

Do  Replaord 

Loop 
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Case  Xpham2opt  "  7 

Morder  -  "Digaxin  .125mg  CD]" 

Do  B:Time 

Do  Regmeds 

Do  Reploord 

Loop 

Case  XphamSopt  -  B 

norder  -  "Digoxin  .E50mg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Reploord 

Loop 

Case  XphamEopt  -  9 

norder  -  "Inderal  lOmg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Reploord 

Loop 

Case  XphamEopt  =  10 

norder  -  "Inderal  40mg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Reploord 

Loop 

Case  XphamEopt  -  11 

norder  -  "Inderal  Img  CIU3" 

Do  B:Time 

Do  lUmeds 

Do  Reploord 

Loop 

Case  XphamEopt  -  IE 

norder  -  "ninipres  Img  COD" 

Do  D:Time 

Do  Regmeds 

Do  Reploord 

Loop 

Case  XphamSopt  =-  13 

norder  -  "ninipres  Emg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Reploord 

Loop 
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Case  XphamSopt  "  14 

norder  -  "Minipres  5mg  CD3" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  XphamSopt  "  15 

Morder  -  "Dilantin  lOOmg  COD" 

Do  B:TimB 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  -  IB 

norder  -  "Dilantin  Supp  125mg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  XphamEopt  "  17 

norder  -  "Elavil  lOmg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  XphamSopt  -  IB 

norder  -  "Elavil  ESmg  CD]" 

Do  BrTime 

Do  Regmeds 

Do  Replaord 

Loop 

Case  XphamEopt  -  19 

norder  -  "Elavil  50mg  CD]" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  XphamEopt  -  20 

norder  -  "Phenobarbital  ISmg  CO]" 

Do  BrTime 

Do  Regmeds 

Do  Replaord 

Loop 


2^0 


Case  XphamSapt  =■  21 

norder  -  "Phenobarbital  30mg  COD" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  XphamEopt  =  22 

Harder  "  "Phenobarbital  60mg  Cini" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  "  23 

*  —  Help 

Do  B:Phamhelp 
Loop 

Case  Xpham2opt  -  24 

*  —  Previous  Screen 
Return 

Endcase 

Release  XphamEopt 

Enddo 
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m»»m    PHAMHELP  .  PRG  «««w«»«4i«*««*«4i*«*««»'«4»«»««4i**«*«««««««« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E9  November  1985 

*  Screen  Generated  By:  The  Softuare  Bottling  Company 

*  Df  New  York,  cl9B5 

*  Purpose:  Brief  on-line  help  facility  for  the 

*  Phaml  and  PhamE . Prg . 

*  Input  Files  Used:  Phamhelp.Scr  and  Proof ile. Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Phaml  or  PhamE . Prg 

*  Routine  Called:  None 

*  Modification  Date:  EG  January  1986 
m 

*  —  Screen  Input  Program  For  Phamhelp  — 

m 

Do  Setup 

Do  While  .T. 

*  —  Screen  Display  A: Phamhelp .Scr  — 

Set   Color    To   UI+/B,UJ+/B 

Clear 

??  Flash+"S. A: Phamhelp.Scr/" 

@  24,0 

e  E4,37  Say  "Press  Any  Key  To  Continue" 

Set  Console  Off 

Uait 

Set  Console  On 

Return 

Enddo 
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««««  ROUTINE. PRG  «««»«««««»««««»«w»«w4»«««w«»«w»««««»w«iii«»i 

*  Author:  Gary  R.  Harmsyer  LCDR  NC  USN 

*  Date:  S9  November  19B5 

*  Screen  Generated  By:  The  Softuare  Battling  Company 

*  Of  Neu  York,  cl9B5 

*  Purpose:  Determine  the  ujard  routine  orders 

*  of  the  patient. 

*  Input  Files  Used:     Routine. Scr  and  Procfile.Prg 

*  Output  Files  Used:    Orders. Dbf 

*  Calling  Routine:      Doc.rienu  .  Prg 

*  Routine  Called:       Time.Prg 

*  Modification  Date:    19  February  19B6 

* 

*  —  Screen  Input  Program  For  Routine  — 

m 

Do  Setup 
Public  Xrouopt 

Do  While  .T. 

*  —  Screen  Display  A: Routine .Scr  — 

Set  Color  To  U)+/B,U+/B 

Clear 

??  Flash+"S. A: Routine. Scr/" 

Set    Color    To   UJ+/B,U+/B 

Xrouopt  "  30 

Do  Headings 

Do  Startup 

G  EE, 66  Get  Xrouopt  Pict  "99"  Range  0,31 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xrouopt  -  0 
•  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xrouopt  -  1 

Morder  -  "Ace  Wrap  Louer  Ext" 

Passdata  -  "Q36  1" 

Ptpoint  -  E 

Do  Replaord 

Loop 
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Case  Xrouopt  -  E 

norder  -  "Chest  Tube  Insertion" 

Passdata  -  "057  1" 

Ptpoint  -  4 

Todayonly  -  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  -  3 

riorder  "  "Circumcision  Care" 

Do  B:Time 

Passdata  -  "QBE  1" 

Ptpoint  -  E 

Do  Replaord 

Loop 

Case  Xrouopt  =  4 

(lorder  =  "Complex  Dressing  Change" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  B  .Or.  Timeopt  =  413 

*  —  Less  than  one  dressing 
Passdata  -  "Q37  1" 
Ptpoint  -  0 

Case  CTimeopt  >  5  .And.  Timeopt  <  EEZ 

*  —  One  dressing  change 
Passdata  -  "Q37  B" 
Ptpoint  -  4 

Case  CTimeopt  >  El  .And.  Timeopt  <  ESD 

*  —  Two  dressing  changes 
Passdata  -  "037  3" 
Ptpoint  -  B 

Case  CTimeopt  >  S4  .And.  Timeopt  <  31] 

*  —  Three  dressing  changes 
Passdata  -  "037  10" 
Ptpoint  -  IE 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  Four  dressing  changes 
Passdata  -  "037  11" 
Ptpoint  ="  IB 

Case  CTimeopt  -  34  .Or.  Timeopt  =  353 

*  —  Six  dressing  changes 
Passdata  -  "037  IE" 
Ptpoint  -  E4 

Case  CTimeopt  =  3B  .Or.  Timeopt  =  373 

*  —  Twelve  dressing  changes 
Passdata  -  "037  13" 
Ptpoint  -  4B 
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Case  CTimeopt  -  38  .Or.  Timeopt  -  39D 

*  —  Twenty-four  dressing  changes 
Passdata  -  "037  14" 

Ptpoint  -  96 
Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  "  5 

norder  -  "EKG  Rhythm  Strip" 

Passdata  -  "033  1" 

Ptpoint  =  E 

Todayonly  -  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  =  6 

norder  -  "Foley  Cath  Care" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  EB    .Or.  Timeopt  "  41D 

*  —  Tube  care  less  than  x  E 
Passdata  -  "039  1" 
Ptpoint  -  0 

Case  CTimeopt  >  El  .And.  Timeopt  <  E5] 

*  —  Tube  care  x  E 
Passdata  -  "039  E" 
Ptpoint  "  E 

Case  CTimeopt  >  EH.    .And.  Timeopt  <  31] 

*  —  Tube  care  x  3 
Passdata  -  "039  3" 
Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34D 

*  —  Tube  care  x  4 
Passdata  -  "039  4" 
Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  =  35] 

*  —  Tube  care  x  B 
Passdata  -  "039  5" 
Ptpoint  "  6 

Case  CTimeopt  =■  36  .Or.  Timeopt  =  37] 

*  —  Tube  care  x  IE 
Passdata  =  "039  6" 
Ptpoint  -  IE 

Case  CTimeopt  =  38  .Or.  Timeopt  =  39] 

*  —  Tube  care  x  E4 
Passdata  -  "039  7" 
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Ptpoint 
EndcasB 


E4 


Do  RBplaord 
Loop 

Case  Xrouopt  =  7 

norder  =•  "Foley  Cath  Insertion" 

Passdata  =  "Q3E  1" 

Ptpoint  -  E 

Todayonly  -  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  ="  8 

norder  -  "Guiac  Stools" 

Do  B:Time 

Do  Routine 

Do  Replaord 

Loop 

Case  Xrouopt  =  9 

norder  -  "Respiratory  Isolation" 

Passdata  =  "054  E" 

Ptpoint  =  E 

Do  Replaord 

Loop 

Case  Xrouopt  -  10 

norder  =  "Reverse  Isolation" 

Passdata  -  "054  E" 

Ptpoint  =  E 

Do  Replaord 

Loop 

Case  Xrouopt  =  11 

norder  =  "Strict  Isolation" 
Passdata  -  "D54  E" 
Ptpoint  -  2 
Do  Replaord 
Loop 

Case  Xrouopt  =  IE 

norder  "  "Lumbar  Puncture" 

Passdata  -  "058  1" 

Ptpoint  =  4 

Todayonly  -  "T" 

Do  Replaord 

Loop 
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Case  Xrouopt  -  13 

norder  -  "N-G  Insertion" 

Passdata  -  "031  1" 

Ptpoint  =  E 

Todayonly  =  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  -  14 

florder  "  "Parencentesis" 

Passdata  -  "060  1" 

Ptpoint  -  4 

Todayonly  =  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  "  15 

florder  =»  "Phototherapy" 
Passdata  =  "053  1" 
Ptpoint  "   E 
Do  Replaord 
Loop 

Case  Xrouopt  =  IB 

Florder  "  "ROn  Exercises  [Passive]" 

Do  BiTime 

Do  Range 

Do  Replaord 

Loop 

Case  Xrouopt  "  17 

Morder  -  "E-Point  Restaints" 

Passdata  =  "050  1" 

Ptpoint  =  E 

Do  Replaord 

Loop 

Case  Xrouopt  -  18 

Morder  -  "4-Point  Restraints" 

Passdata  -  "050  E" 

Ptpoint  -  E 

Do  Replaord 

Loop 

Case  Xrouopt  -  19 

florder  "  "Posey  Restraint" 
Passdata  =  "050  3" 
Ptpoint  ■  E 
Do  Replaord 
Loop 
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Case  Xrouopt  -  20 

riorder  "  "Simple  Dressing  Change" 
Do  B:Time 

Da  Case 

Case  CTimeopt  <  22  .Dr.  Timeopt  -  41] 

*  —  Less  than  x  2 
Passdata  -  "Q37  1" 
Ptpoint  -  0 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  X  2  or  BID 
Passdata  -  "Q37  2" 
Ptpoint  =  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  ~  X  3  or  TID 
Passdata  -  "Q37  3" 
Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  X  4  or  QID 
Passdata  =  "Q37  4" 
Ptpoint  -  4 

Case  CTimeopt  "  34  .Dr.  Timeopt  =■  353 

*  —  X  B  or  Q6h 
Passdata  -  "037  5" 
Ptpoint  =  6 

Case  CTimeopt  =  36  .Dr.  Timeopt  =  373 

*  —  X  12  or  Q2h 
Passdata  -  "037  6" 
Ptpoint  -  12 

Case  CTimeopt  =  3B  .Dr.  Timeopt  =  393 

*  —  X  24  or  Olh 
Passdata  -  "037  7" 
Ptpoint  -  24 

Endcase 

Do  Replaord         

Loop 

Case  Xrouopt  =  21 

riorder  -  "Spec  Gravity" 

Do  B:Time 

Do  Routine 

Do  Replaord 

Loop 

Case  Xrouopt  -  22 

norder  -  "Spin  HCT" 
Do  B:Time 
Do  Routine 
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Do  Replaord 
Loop 

Case  Xrouopt  =  23 

narder  -  "Straight  Cath" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  31  .Or.  Timeopt  =-  41D 

*  —  Less  than  x  4 
Passdata  -  "032  2" 
Ptpoint  -  0 

Case  CTimeopt  >  30  .And.  Timeopt  <  41] 

♦  —  X  4  or  more 
Passdata  =  "032  3" 
Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  =  24 

norder  =  "Surgical  Shave  Prep" 

Passdata  -  "034  1" 

Ptpoint  -  2 

Todayonly  =  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  =  25 
norder  -  "S5  Enema" 
Passdata  -  "035  1" 
Ptpoint  "  2 
Todayonly  -  "T" 
Do  Replaord 
Loop 

Case  Xrouopt  "  26 

norder   "    "Tap   Uiater   Enema" 

Passdata  -  "035  1" 

Ptpoint  -  2 

Todayonly  -  "T" 

Do  Replaord 

Loop 

Case  Xrouopt  =  27 

norder  -  "Thoracentesis" 
Passdata  -  "053  1" 
Ptpoint  -  4 
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Todayonly  -  "T" 
Do  Raplaord 
Loop 

Case  Xrouopt  "  28 

Morder  -  "Tube  Care  Cnot  trach]" 
Do  B:Time 

Do  Case 

Case  CTimeapt  <  E2  .Or.  Timeopt  -  41D 

*  —  Tube  care  less  than  x  E 
Passdata  =■  "038  1" 
Ptpoint  -  0 

Case  CTimeopt  >  21  .And.  Timeapt  <  25] 

*  —  Tube  care  x  2 
Passdata  -  "038  2" 
Ptpoint  -  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  —  Tube  care  x  3 
Passdata  -  "038  3" 
Ptpoint  ="  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34D 

*  —  Tube  care  x  4 
Passdata  -  "038  4" 
Ptpoint  =•  4 

Case  CTimeopt  =  34  .Or.  Timeopt  =  35D 

*  —  Tube  care  x  6 
Passdata  =  "038  5" 
Ptpoint  -  6 

Case  CTimeopt  -  36  .Or.  Timeopt  "  373 

*  —  Tube  care  x  12 
Passdata  -  "038  6" 
Ptpoint  -  12 

Case  CTimeopt  -  38  .Or.  Timeopt  -  393 

*  —  Tube  care  x  24 
Passdata  -  "038  7"    _ 
Ptpoint  =  24 

Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  =-  29 

norder  -  "5  &  A  of  Urine" 

Do  B:Time 

Do  Routine 

Do  Replaord 

Loop 
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Case  Xrouopt  =  30 

*  —  Doctor's  Order  Screen 
Dmenu  -  '  1  ' 

Return 

Case  Xrouopt  =  31 

*  —  Master  Screen 
Dmenu  =  '  ' 
Return 

Endcase 
Release  Xrouopt 


Enddo 
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***•  US.PRG  **«*♦*»*»*•*•»*«»*••»•»»«•«»••«»*»•«•«•**»»»»« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E9  November  1985 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  Neuj  York,  cl985 

*  Purpose:  Determine  the  vital  sign  orders  of 

*  the  patient. 

*  Input  Files  Used:  US.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling    Routine:  Doc.riBnu  .  Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  19BB 
m 

*  —  Screen  Input  Program  For  US  — 

Do  Setup 
Public  Xvsopt 

Do  While  .T. 

*  —  Screen  Display  A: US.Scr  — 

Set  Color  To  U-t-/B,UJ+/B 

Clear 

??  Flash+"S.A:US.Scr/" 

Set   Color    To   Ui+/B,U+/B 

Xvsopt  =  12 

Do  Headings 

Do  Startup 

e  22,66  Get  Xvsopt  Pict  "99"  Range  0,13 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xvsopt  -  0         -' 
*  ~  Sign-Off 
Close  Database 
Close  Procedure 
Release  All 
Return  To  Naster 

Case  Xvsopt  -  1 

Morder  -  "T-P-R,  B/P" 
Do  B:Time 

Do  Case 

Case  Timeopt  <  34 
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*  —  DID  or  less 
Passdata  -  "Ql  1" 
Ptpoint  "  1 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35] 

*  —  a4h  or  X  6 
Passdate  -  "Ql  E" 
Ptpoint  =  2 

Case  CTimeopt  "  3B  .Or.  Timeopt  -  37] 

*  —  QEh   or  X  IE 
Passdate  -  "Ql  3" 
Ptpoint  -  4 

Case  CTimeopt  -  38  .Or.  Timeopt  =■  39] 

*  —  Qlh  or  X  24 
Passdate  -  "Ql  4" 
Ptpoint  -  8 

Case  Timeopt  -  41 

*  —  No  frequency  indicated 
Passdate  =  "Ql  5" 

Ptpoint  -  0 
Endcase 

Do  Replaord 
Loop 

Case  Xvsopt  "  2 

norder  -  "Post-op" 
Passdata  =  "Q8  1" 
Ptpoint  =  B 
Todayonly  -  "T" 
Do  Replaord 
Loop 

Case  Xvsopt  -  3 

norder  -  "Post  Partum" 
Passdata  -  "08  2" 
Ptpoint  "=  6 
Todayonly  -  "T" 
Do  Replaord 
Loop 

Case  Xvsopt  -  4 

norder  =-  "Post  Newborn" 

Passdata  -  "08  3" 

Ptpoint  -  6 

Todayonly  =  "T" 

Do  Replaord 

Loop 
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Case  Xvsopt  =  5 
Morder  -  "FHT" 
Do  B:Time 

If  CTimeopt  <  34  .Dr.  Timeopt  -  41D 

*  —  Less  than  Q4h 
PassdatQ  -  "QB    1" 
Ptpoint  -  0 

Else 

*  —  Q4h  or  more 
PassdatQ  -  "05  2" 
Ptpoint  =  2 

Endif 

Do  Replaord 
Loop 

Cose  Xvsopt  =  6 

Morder  -  "f=ipical  Pulse" 
Do  BiTime 

If  CTimeopt  <  31  .Or.  Timeopt  =  41D 

*  —  Less  than  QID 
Passdata  -  "03  1" 
Ptpoint  -  0 

Else 

*  —  OID  or  more 
Passdata  -  "03  E" 
Ptpoint  ="  E 

Endif 

Do  Replaord 
Loop 

Case  Xvsopt  "  7 

Morder  -  "Femoral  Pulse" 
Do  B:Time 

If  CTimeopt  <  34  .Or.  Timeopt  -  41D 

*  —  Less  than  04h 
Passdata  -  "04  1" 
Ptpoint  -  0 

Else 

*  —  04h  or  more 
Passdata  -  "04  E" 
Ptpoint  "  2 

Endif 

Do  Replaord 
Loop 
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Case  Xvsopt  "  S 

norder  -  "Pedal  Pulse" 
Da  B:TimB 

If  CTimeapt  <  34  .Or.  Timenpt  -  41] 

«  —  Less  than  a4h 

Passdata  -  "05  1" 

Ptpoint  -  0 
Else 

*  —  Q4h  or  more 
Passdata  -  "Q5  2" 
Ptpoint  -  E 

Endif 

Do  Replaord 
Loop 

Case  Xvsopt  =*  9 

norder  =  "Axillary  Temps" 
Do  B:Time 

If  CTimeopt  <  31  .Or.  Timeopt  =  41D 

*  —  Less  than  QID 
Passdata  -  "OE  E" 
Ptpoint  =  0 

Else 

*  —  OID  or  more 
Passdata  -  "OE  4" 
Ptpoint  -  E 

Endif 

Do  Replaord 
Loop 

Case  Xvsopt  =  10 

florder  -  "Rectal  Temps" 
Do  B:Time 

If  CTimeopt  <  31  .Or.  Timeopt  =  41D 

*  —  Less  than  DID 
Passdata  -  "OE  1" 
Ptpoint  -  0 

Else 

*  —  OID  or  more 
Passdata  -  "OE  3" 
Ptpoint  -  E 

Endif 


255 


Do  Replaord 
Loop 

Case  Xvsopt  -  11 

norder  -  "Tilt  Test" 
Do  B:Time 

If  CTimeopt  <  34  .Dr.  Timeopt  -  41] 

»  —  Less  than  a4h 

Passdate  -  "Q7  1" 

Ptpoint  -  0 
Else 

*  —  Q4h  or  more 

Passdate  =  "07  2" 

Ptpoint  -  2 
Endif 

Do  Replaord 
Loop 

Case  Xvsopt  =  12 

*  —  Doctor's  Order  Screen 
Dmenu  -  ' 1 ' 

Return 

Case  Xvsopt  "  13 

*  --  Master  Screen 
Dmenu  -  '  ' 
Return 

Endcase 
Release  Xvsopt 


Enddo 
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««w«  XR^Y . PRG  *****************************^*^************ 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  1985 

*  Screen  Generated  By:  The  SoFtujare  Battling  Campany 

*  Of  New  York,  cl985 

*  Purpose:  Determine  xray  orders  for  the 

*  patient . 

*  Input  Files  Used:  Xray.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc_nenu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1986 
m 

*  —  Screen  Input  Program  For  Xray  — 

m 

Do  Setup 
Public  Xxrayopt 

Do  While  .T. 

*  —  Screen  Display  B: Xray.Scr  — 

Set  Color  To  U)+/B,UI-^/B 

Clear 

??  Flash+"S.B:Xray .Scr/" 

Set   Color   To   Ui+/B,ljJ+/B 

Xxrayopt  -  19 

Do  Headings 

Do  Startup 

e  22,66  Get  Xxrayopt  Pict  "99"  Range  0,20 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xxrayopt  -  0 
♦  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Naster 

Case  Xxrayopt  -  1 

Morder  -  "Abdomen  Flat  Plate  Xray" 
Do  B:Time 
Do  Replaord 
Loop 
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Case  Xxrayopt  -  2 

flarder  -  " Abdomen  AP  Xray" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  "  3 

norder  -  "Abdomen  3-ujay  Xray" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  =•  4 

Morder  -  "Angiography" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  -  5 

florder  "  "Arteriography" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  "  6 

Morder  "  "Barium  Enema" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  -  7 

norder  -  "Brain  Scan" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  -  a 

Morder  -  "Chest  PA  Xray" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  "  9 

Morder  -  "Chest  Lateral  Xray" 
Do  BrTime 
Do  Replaord 
Loop 

Case  Xxrayopt  "  10 
Morder  -  "CT  Scan" 
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Do  B:Tima 
Do  Replaord 
Loop 

Case  Xxrayopt  -  11 

norder  -  "GallbladdBr  Series" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  "  IE 
norder  -  "I UP" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  -  13 

norder  -  "Sinus  Series" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  -  14 

norder  -  "Skull  Xray" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  -  15 

norder  -  "Spine  Xray" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  -  IB 

norder  -  "Tomography" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  -  17 

norder  -  "Upper  GI  Series" 
Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  "  IB 

norder  -  "Ultrasound" 
Do  B:TimB 
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Do  Replaord 
Loop 

Case  Xxrayopt  "  19 

*  --  Doctor's  Order  Screen 
Dmenu  -  ' 1 ' 

Return 

Case    Xxrayopt    -    EO 

*  —    flaster    Screen 
Dmenu    =-     '     ' 
Return 

Endcase 

Release  Xxrayopt 


Enddo 
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««««  OISCQNT.PRG  »***»*»***********>**********^*^********** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  IB  December  1985 

*  Screen  Generated  By:  The  Softujare  Battling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Display  patient  orders  to  determine 

*  if  any  are  to  be  discontinued. 

*  Input  Files  Used:  Discont.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doctor. Prg 

*  Routine  Calls:  None 

*  Modification  Date:  IB  February  1986 
m 

*  —  Screen  Input  Program  For  Discont  — 

Do  Setup 

Public  Xdisopt , Xdcdote, Xdcorder, Xdcprac 
Public  Xdcf req, Xmptfmpssn, Xordpack 
Xordpack  ="  .F. 

*  —  Identify  correct  patient  to  display  orders  — 

Use  B: Orders 

Store  " ■ "  +  Ptf mpssn  +  "' "  To  Xmptfmpssn 

Locate  For  Fmpssn  =  &Xmptf mpssn  .And.  Module  #  'N' 

Do  While  .T. 

*  —  Store  data  from  Dbf  file  into  variable  names  — 

Xdcdate  =  Ddate 
Xdctime  =  Otime 
Xdcorder  =»  Order 
Xdcfreq  =  Freq 
Xdcprac  =  Prac 

*  —  Screen  Display  A: Discont . Scr  -- 

Set  Color  To  U+/B,UI+/B 

Clear 

??  Flash+"S.A:Discont.Scr/" 

Set  Color  To  UJ+/B,UI+/B 

Xdisopt  -  1 

Do  Headings 

e  13,1  Say  Xdcdate 

e  13, 10  Say  Xdctime 

e  13,19  Say  Xdcorder 

@  13,47  Say  Xdcfreq 

e  13, BO  Say  Xdcprac 
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e  EE,67  Get  Xdisopt  Pict  "9"  Range  0,4 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xdisopt  -  0 

*  --  Sign-Off 

If  Xordpack  "  . T . 

Pack 
Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Naster 

Case  Xdisopt  =  1 

*  —  Next  Order 
Skip 

Do  Uhile  CCFmpssn  #  SXmptf mpssnD .Or . CModule  =  "N"]] 
If  EOFCD 

@  24,4  Say  "No  Additional  Medical  Orders  On  " 

e  24,35  Say  "This  Patient  —  Press  Any  Key  To  " 

@  24,69  Say  "Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

If  Xordpack  =  .T. 

Pack 
Endif 
Return 
Else 

Skip 
Endif 
Enddo 
If  EOF  CD 

0  E4,4  Say  "No  Additional  Hedical  Orders  On  " 

@  24,36  Say  "This  Patient  —  Press  Any  Key  To  " 

e  24,69  Say  "Continue" 

Set  Console  Off 

Uait 

Set  Console  On 

If  Xordpack  =  .T. 

Pack 
Endif 
Return 
Else 

Loop 
Endif 
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Case  Xdisopt  =  2 

*  —  Discontinue  The  Order 
Xordpack  "  .T. 

Delete 
Skip 

Do  While  CCFmpssn  #  &Xmptf mpssnD . Or . CModule  =  "N"]] 
If  EOFCD 

e  24,4  Say  "No  Additional  Medical  Orders  On  " 
e  E4,3G  Say  "This  Patient  —  Press  Any  Kay  To  " 
e  E4,B9  Say  "Continue" 
Set  Console  Off 
Uait 

Set  Console  On 
Pack 
Return 
Else 

Skip 
Endif 
Enddo 
If  EOF  CD 

e  E4,4  Say  "No  Additional  Hedical  Orders  On  " 
e  E4,3B  Say  "This  Patient  —  Press  Any  Key  To  " 
e  E4,69  Say  "Continue" 
Set  Console  Off 
Uait 

Set  Console  On 
Pack 
Return 
Else 

Loop 
Endif 

Case  Xdisopt  »  3 

*  —  Dr ' s  Master 
If  Xordpack  =  .T. 

Pack 
Endif 

Dmenu  ="1" 
Return 

Case  Xdisopt  =  4 

*  —  Master 

If  Xordpack  -  .T. 

Pack 
Endif 

Dmenu  ="  " 
Return 


263 


EndcQse 

Release  Xdisopt , Xdcdate , Xdcorder , Xdcprac 

Release  Xdcf req , Xmptf mpssn , Xordpack 


Endda 
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««««  TRANSFER . PR6  •«♦»*»•*»»»****»********•**»»»**♦•»»»»*• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  9  December  1985 

»  Screen  Generated  By:  The  SoFtware  Battling  Company 

*  Df  Neuj  York,  cl9B5 

*  Purpose:  Menu  to  determine  if  patient  will 

*  be  admitted,  transferred  or 

*  discharged. 

*  Input  Files  Used:  Transfer. Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doctor . Prg 

*  Routine  Called:  None 

*  nodification  Date:  4  February  1986 
m 

*  —  Screen  Input  Program  For  Transfer  — 

m 

Do  Setup 
Public  Xtranopt 

Do  While  .T. 

*  —  Screen  Display  A: Transfer .Scr  — 

Set  Color  To  U+/B,U+/B 

Clear 

??  Flash+"S. A: Transfer. Scr/" 

Set  Color  To  U+/B,U+/B 

Xtranopt  =  4 

Do  Headings 

Do  Startup 

e  EE,B7  Get  Xtranopt  Pict  "9"  Range  0,5 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xtranopt  -  0 
*  —  Sign-Off 
Close  Databases 
Release  All 
Close  Procedure 

Case  Xtranopt  -  1 
norder  -  "Admit" 
Passdata  -  "BS  E" 
Ptpoint  -  IE 
Todayonly  -  "T" 
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Do  Replaord 
Loop 

Case  Xtranopt  =  2 

norder  -  "Transfer" 
Passdata  -  "BE  1" 
Ptpoint  -  4 
Todayonly  =  "T" 
Do  Replaord 
Loop 

Case  Xtranopt  ="  3 

Morder  -  "Discharge" 

Do  Replaord 

Loop 

Case  Xtranopt  "  4 

*  —  Doctor's  Master  Screen 
Dmenu  -  ' 1 ' 

Return 

Case  Xtranopt  "■  5 

*  —  Master  Screen 
Dmenu  "  '  ' 
Return 

Endcase 

Release  Xtranopt 


Enddo 


266 


««ww  NURSE . PRG  *»******w*«********«********4i********«*w«** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  20  DecBmbar  1985 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Provide  the  nurse  options  of  enter- 

*  ing  or  revieujing  nursing  care 

*  plans.   The  module  allows  the 

*  nursB  to  dBtarmina  the  patient 

*  classification  level  either  in- 

*  ternally  or  externally. 

*  Input  Files  Used:  Nurse. Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Output  File  Created:  Return. Txt 

*  Calling  Routine:  UardE  or  UJard3.Prg 

*  Routine  Calls:  Nursel.Prg 

*  nodification  Date:  3  flarch  1386 


• 


*  —  Screen  Input  Program  For  Nurse  — 


» 


Do  Setup 

Public  Xnuropt , Nmenu , Xpoints, Xmonpt , Xemopt , Xroupt , X level 

Public  Xnouj,Xtoday 

Nmenu  ="  SpaceClD 

Xpoints  -  0 

Xmonpt  =  0 

Xemopt  =  0 

Xroupt  =  0 

Xlevel  -  SpaceClE] 

Store  DTOCCDateC3  3  To  Xnouj 

Store  " '"  +  Xnou  +  " ' "  To  Xtoday 

Do  Uhile  .T. 

*  —  Screen  Display  A: Nurse. Scr  — 

Set  Color  To  IJ+/B,UI+/B 

Clear 

??  Flash+"S.A:Nurse.Scr/" 

Set   Color   To   UI+/B,UJ+/B 

Xnuropt  "  8 

Do  Headings 

e  2E,B7  Get  Xnuropt  Pict  "9"  Range  0,8 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 


267 


Case  Xnuropt  "  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xnuropt  -  1 

*  —  Enter/Inactivate  Nursing  Care  Plan 
Do  B:NursBl 

If  Nmenu  -  "1" 

Loop 
Else 

Return 
Endif 

Case  Xnuropt  -  E 

*  --  Revieuj  Nursing  Care  Plan 
Clear 

Set  Color  To  UJ+/B,IjJ+/B 

e  1,E0  Say  "Nursing  Care  Plan  For:" 

e  1,43  Say  Ourpt 

e  3,10  Say  "Press  —  Ctrl  and  S  —  Keys  " 

@  3,38  Say  "to  Pause  The  Scrolling  If  Necessary" 

Use  B:Ncaredb 

Store  " ' "  +  Ptf mpssn  +  " ' "  To  Mptf mpssn 

Report  Form  B:NC  For  Nf mpssn  -  &mptf mpssn 

Wait 

Loop 

Case  Xnuropt  =■  3 

*  --  Print  Nursing  Care  Plan 

@  E4,0  Say  "Turn  On  Your  Printer,  " 

e  24, EE  Say  "Then  Hit  Any  Key  To  Print" 

Set  Console  Off 

UJait 

Set  Console  On 

Clear 

e  IE, 30  Say  "Printing,  Please  Wait" 

Set  Console  Off 

Set  Device  To  Print 

e  1 , SO  Say  "Nursing  Care  Plan  For:" 

e  1,43  Say  Ourpt 

Set  Device  To  Screen 

Use  B:Ncar-db 

Store  " ' "  -  Ptf mpssn  +  " ' "  To  Hptf mpssn 

Report  Form  B:NC  Noeject; 

To  Print  For  Nfmpssn  -  &mptfmpssn 
Set  Console  On 
0  E4,0  Say  "Finished  Printing,  Hit  " 
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e  a'i^EB   Soy  "Any  Key  To  Continue" 

Set  Console  Off 

Uiait 

Set  Console  Qn 

Loop 

Case  Xnuropt  -  4 

*  —  Determine  Patient  Classification  Level 
Use  B: Orders 

Store  "' "  +  Ptf mpssn  +  " '"  To  Mptf mpssn 
Copy  To  B: Return  Fields  Expertsys  Sdf ; 

Fmpssn  ="  Smptfrnpssn  .And.  COnlytoday  -  "F"  .Or.; 

COnlytoday  -  "T"  .And.  Odate  -  SXtodayDD 
Close  Procedure 
Close  Databases 
Release  All 

*  —  Exit  this  portion  of  prototype  software 
Quit 

Case  Xnuropt  *  5 

*  —  Review  Patient  Care  Requirements 
Clear 

Set  Color  To  W+/B,UJ+/B 

@  1,17  Say  "Patient  Care  Requirements  For:" 

e  1,48  Say  Ourpt 

e  3,10  Say  "Press  —  Ctrl  and  S  —  Keys  To  Pause  " 

e  3,47  Say  "The  Scrolling  If  Necessary" 

Use  B: Orders 

Store  "  '  "  +  Ptf  mpssn  +  "  '  "  To  flptf  mpssn 

Report  Form  B:Ord  For; 

Fmpssn  =-  Smptfmpssn  .And.  COnlytoday  =  "F"  .Or.; 

COnlytoday  -  "T"  .And.  Odate  -  &Xtoday3D 
Wait 
Loop 

Case  Xnuropt  -  B 

*  —  Print  Patient  Care  Requirements 
e  E4,0  Say  "Turn  On  Your  Printer,  " 

@  24, E3  Say  "Then  Hit  Any  Key  To  Print" 

Set  Console  Off 

Uait 

Set  Console  On 

Clear 

@  IE, 30  Say  "Printing,  Please  Wait" 

Set  Console  Off 

Set  Device  To  Print 

@  1 , 17  Say  "Patient  Care  Requirements  For:" 

e  1,47  Say  Ourpt 

Set  Device  To  Screen 

Use  B: Orders 
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store  "  '"  +  Ptf mpssn  -•-  "  '"  To  nptf mpssn 
Report  Form  B:Drd  Noeject  To  Print  For; 

Fmpssn  -  &mptf mpssn  .And.  CDnlytoday  -  "F"  .Or.; 

CQnlytoday  -  "T"  .And.  Ddate  -  SXtodoyD] 
Set  Console  Dn 

e  S4,0  Say  "Finished  Printing,  Hit  " 
e  E4,E3  Say  "Any  Key  To  Continue" 
Set  Console  Off 
Wait 

Set  Console  Dn 
Loop 

Case  Xnuropt  =  7 

*  —  Internal  Patient  Classification 

Clear 

Set    Color    To   ljJ+/B,U)+/B 

e   7,25   Say    "Please   UJait   Uhile   Calculating" 

Use   B: Orders 

Store  " ' "  +  Ptf mpssn  +  To  Hptf mpssn 

Sum  Critical  To  Xpoints  For; 

Fmpssn  *  Smptfmpssn  .And.  COnlytoday  "  "F"  .Or.; 

CDnlytoday  =  "T"  .And.  Ddate  =  SXtodayDD 
Sum  nonpt  To  Xmonpt  For; 

Fmpssn  =  Smptfmpssn  .And.  CDnlytoday  "  "F"  .Dr.; 

COnlytoday  -  "T"  .And.  Ddate  -  SXtoday]] 
If  Xmonpt  >  0 

Xpoints  =  Xpoints  +  6 
Endif 
Sum  Emopt  To  Xemopt  For; 

Fmpssn  -  Smptfmpssn  .And.  CDnlytoday  -  "F"  .Dr.; 

CDnlytoday  -  "T"  .And.  Odate  -  SXtodayDD 
If  Xemopt  >"  10 

Xpoints  =  Xpoints  +  10 
Else 

Xpoints  -  Xpoints  +  Xemopt 
Endif 
Sum  Roupt  To  Xroupt  For; 

Fmpssn  -  Smptfmpssn  .And.  CDnlytoday  "  "F"  .Dr.; 

CDnlytoday  -  "T"  .And.  Odate  =  SXtodayDD 
Do  Case 

Case  Xroupt  <  5 

Xpoints  =■  Xpoints  -♦-  0 

Case  CXroupt  >  5  .And.  Xroupt  <  lED 
Xpoints  -  Xpoints  +  E 

Case  CXroupt  >  11  .And.  Xroupt  <  183 
Xpoints  -  Xpoints  +  4 

Case  CXroupt  >  17  .And.  Xroupt  <  E43 
Xpoints  -  Xpoints  +  B 
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Case  Xroupt  >  E3 

Xpaints  "  Xpoints  +  8 
Endcase 

*  --  Determine  patient  classification  level  based  on 

*  —    patient  care  paints  — 
Do  Case 

Case  Xpoints  <  13 

Xlevel  -  "Category  I" 
Case  CXpoints  >  IE  .And.  Xpoints  <  3E] 

Xlevel  -  "Category  II" 
Case  CXpoints  >  31  .And.  Xpoints  <  B4] 

Xlevel  =  "Category  III" 
Case  CXpoints  >  G3  .And.  Xpoints  <  96D 

Xlevel  -  "Category  lU" 
Case  CXpoints  >  95  .And.  Xpoints  <  14BD 

Xlevel  *=  "Category  U" 
Case  Xpoints  >  146 

Xlevel  =  "Category  lU" 
Endcase 

Clear 

Set  Color  To  ljJ+/B,U+/B 

e  7,30  Say  "Patient:  " 

@  7,33  Say  Ourpt 

e  8,30  Say  "Is  In:  " 

e  8,37  Say  Xlevel 

e  10,30  Say  "Point  Ualue  Is:" 

e  10,46  Say  Xpoints 

G  E4,0  Say  "Calculation  Complete  —  " 

e  E4,E4  Say  "Press  Any  Key  To  Continue" 

Set  Console  Off 

UJait 

Set  Console  On 

Loop 

Case  Xnuropt  -  8 

*  —  Master  Screen 
Return 

Endcase 

Release  Xnuropt , Xpoints, Xmonpt , Xemopt , Xroupt , Xlevel 

Release  Xnouj,Xtoday 

Enddo 
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****  NURSEl.PRG  •«♦***»*»«♦•»*»••*♦•*•*♦•»««•«•*»«••* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  EO  December  1385 

*  Screen  Generated  By:  The  SoFtuiore  Bottling  Company 

*  Of  Neu)  York,  cl985 

*  Purpose:  Enables  the  nurse  to  enter  or 

*  modify  a  nursing  care  plan. 

*  Input  Files  Used:  Nursel.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Nurse. Prg 

*  Routine  Calls:  N_Diag  or  Inact.Prg 

*  Modification  Date:  4  February  1986 
« 

*  --  Screen  Input  Program  For  Nursel  — 

Do  Setup 

Public  Xnurslopt 

Do  While  .T. 

*  —  Screen  Display  A: Nursel.Scr  — 

Set   Color   To   UJ+/B,U+/B 

Clear 

??   Flash+"S.A:Nursel.Scr/" 

Set  Color  To  U)+/B,IJ+/B 

Xnurslopt  =-  4 

Do  Headings 

e  EE,B7  Get  Xnurslopt  Pict  "S"  Range  0,4 

Read 

*  --  Evaluate  action  based  on  the  option  selected  ■ 
Do  Case 

Case  Xnurslopt  -  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xnurslopt  -  1 

*  —  Enter  A  New  Care  Plan 
Do  B:N_Diag 

Return 

Case  Xnurslopt  -  E 

*  —  Inactivate  A  Nursing  Care  Plan 
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Do  B: Inactive 
Return 

Case  Xnurslopt  =-  3 

*  —  Nurse's  Master  Screen 
Nmenu  -  "1" 

Return 

Case   Xnurslopt    -   4 

*  —  riaster  Screen 
Store  '  '  To  Nmenu 
Return 

Endcase 

Release  Xnurslopt 


Enddo 
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**••  N_DIf=lG.PR6  •«*•••••»•»*•**»*»••••♦«»»*•«»***•*»»«*•« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  EO  December  1985 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Alloujs  the  nurse  to  chose  from  a 

*  menu  of  four  nursing  diagnoses. 

*  Input  Files  Used:  N_Diag.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Nursel.Prg 

*  Routine  Called:  Assess_l , Assess_2, Assess_3,  or 

*  Assess_4.Prg 

*  nodification  Date:  4  February  13B6 
» 

*  —  Screen  Input  Program  For  N_Diag  — 

* 

Do  Setup 

Public  Xndiagopt , Nursdiag, Emo teach, Nrelate, Ngoal , Nassess 

Public  Assoth, Reloth , Goaoth , Ordoth 

Nursdiag  -  SpaceCBOD 

Emoteach  *  SpaceClSD 

Nrelate  -  SpaceCEBD 

Ngoal  "  SpaceC3B] 

Nassess  -  SpaceC27] 

Assoth  -  SpaceCE?] 

Reloth  "  SpaceCES] 

Goaoth  "  SpaceCSB] 

Ordoth  -  SpaceCE?] 

Do  Uhile  .T. 

♦  —  Screen  Display  A:N_Diag.Scr  — 

Set  Color  To  UJ+/B,IjJ+/B 

Clear 

??  Flash+"S.A:N_Diag.Scr/" 

Set   Color   To   li)+/B,UJ+/B 

Xndiagopt  "  5 

Do  Headings 

Do  Startup 

e  ES,67  Get  Xndiagopt  Pict  "9"  Range  0,6 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xndiagopt  =  0 
*  —  Sign-Off 
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Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xndiagopt  =-  1 

Nursdiag  =-  "Comfort  Alteration  In:  Pain" 

Do  B:Assess_l 

Loop 

Case  Xndiagopt  =  E 

Nursdiag  =-  "Communication  Impaired:  Uerbal" 

Do  B:Assess_E 

Loop 

Case  Xndiagopt  =  3 

Nursdiag  =  "Impaired  Physical  Mobility" 

Do  B:Assess_3 

Loop 

Case  Xndiagopt  =  4 

Nursdiag  =  "Self-Care  Deficit" 

Do  B:Assess_4 

Loop 

Case  Xndiagopt  =  5 

*  —  Nurse's  Master  Screen 
Nmenu  =  "1" 

Return 

Case  Xndiagopt  =  6 

*  —  Master  Screen 
Nmenu  -  "  " 
Return 

Endcase 

Release  Xndiagopt 


Enddo 


275 


««««  ASSESS  1  .  PRG  **«ww*4i*********4tt********^**«****«*«»4»w« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  EO  December  1985 

*  Screen  Generated  By:  The  Softuiare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  nursing  assessments  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  comfort  alteration  in:  pain. 

*  Input  Files  Used:  AssBSS_l.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N_Diag.Prg 

*  Routine  Called:  Relate_l.Prg 

*  nodification  Date:  3  February  1986 

*  —  Screen  Input  Program  For  Assbs5_1  — 

* 

Do    Setup 
Public    Xasslopt 

Do   Ulhile    .T. 

*  —    Screen   Display    A: Assess_l .Scr    — 

Set    Color    To    U)+/B ,  LlI+/B 

Clear 

??  Flash+"S.A: Assess_l .Scr/" 

Set  Color  To  U+/B,U)+/B 

Xasslopt  =  11 

Do  Headings 

@  EE,B6  Get  Xasslopt  Pict  "39"  Range  1 , IB 

Read 

*  --  Alloujs  the  nurse  to  document  assessment  of  the 

*  —    patient  -- 

Do  Case 

Case  Xasslopt  -  1 

Nassess  "  "Altered  Time  Perception" 

Do  B:Relate_l 

Return 

Case  Xasslopt  =  E 

Nassess  =  "Alteration  In  Muscle  Tone" 

Do  B:Relate_l 

Return 
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Case  Xasslopt  -  3 

Nassess  -  "Autanomic  Response" 

Do  B:Relate_l 

Return 

Case  Xasslopt  -  4 

Nassess  -  "Distraction  Behavior" 

Do  B:Relate_l 

Return 

Case  Xasslopt  "  5 

Nassess  ■  "Facial  Nask" 

Do  B:Relate_l 

Return 

Case  Xasslopt  "  B 
e  18,24  Get  Assoth; 

Pict  "!  XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nassess  =  Assoth 
Do  B:Relate_l 
Return 

Case  Xasslopt  =  7 

Nassess  =  "Guarding  Behavior" 

Do  B:Relate_l 

Return 

Case  Xasslopt  =  B 

Nassess  =  "Impaired  Thought  Process" 

Do  B:Relate_l 

Return 

Case  Xasslopt  =  9 

Nassess  "  "Narroujing  Focus" 

Do  B:Relate_l 

Return 

Case  Xasslopt  =  10 
Nassess  =  "Pacing" 
Do  B:Relate_l 
Return 

Case  Xasslopt  =  11 

Nassess  =  "Patient  Report" 

Do  B:Relate_l 

Return 

Case  Xasslopt  -  IE 

Nassess  ="  "Self .Focusing" 
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Do  B:Relate_l 
Return 

Case  Xasslopt  =■  13 

Nassess  -  "Talkative" 
Do  B:Relate_l 
Return 

Case  Xasslopt  -  14 

Nassess  -  "Uerbal  Complaint" 

Do  B:Relate_l 

Return 

Case  Xasslopt  ■  15 

Nassess  =  "Uerbal  Complaint" 

Do  B:Relate_l 

Return 

Case  Xasslopt  "  16 

Nassess  =-  "UJ/draw  From  Social  Contact" 

Do  B:Relate_l 

Return 

Endcase 

Release  Xasslopt 


Enddo 
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«4»««  RELATE  1  .  PRG  ««*««»«««»«««»»«««««4»««««»«w**»»««4»»«4t»w« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  20  December  1385 

*  Screen  Generated  By:  The  Softiuare  Bottling  Company 

*  Of  Neui  York,  cl9B5 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  related  factors  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  comfort  alteration  in:  pain. 

*  Input  Files  Used:  Relate_l.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Assess_l.Prg 

*  Routine  Called:  Goal_l.Prg 

*  Modification  Date:  1  February  19BB 
m 

*  —  Screen  Input  Program  For  Relate_l  — 

Do  Setup 
Public  Xrellopt 

Do  While  .T. 

*  —  Screen  Display  A: Relate_l .Scr  -- 

Set  Color  To  UJ+/B,U)+/B 

Clear 

??  Flash+"S.A:Relate_l .Scr/" 

Set  Color  To  LJ+/B,U)+/B 

Xrellopt  -  E 

Do  Headings 

@  EE,67  Get  Xrellopt  Pict  "9"  Range  1,7 

Read 

*  —  Previous  assessment  is  related  to  some  cause  — 

Do  Case 

Case  Xrellopt  =  1 

Nrelate  =  "Altered  Sensation" 

Do  B:Goal_l 

Return 

Case  Xrellopt  -  E 

Nrelate  "  "Disease  /  Condition" 

Do  B:Goal_l 

Return 

Case  Xrellopt  =  3 

Nrelate  -  "Emotional  State" 
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Do  B:Goal_l 
Return 

Case  Xrellopt  =  4 
@  17, 14  Get  Reloth; 

Pict  "IXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nrelate  =■  Reloth 
Do  B:Goal_l 
Return 

Case  Xrellopt  =  5 

Nrelate  -  "Surgical  Procedure" 

Do  B:Goal_l 

Return 

Case  Xrellopt  =  B 
Nrelate  -  "Trauma" 
Do  B:Goal_l 
Return 

Case  Xrellopt  =  7 

Nrelate  -  "Treatment  Regime" 

Do  B:Goal_l 

Return 

Endcase 

Release  Xrellopt 


Enddo 
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*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  EO  December  19B5 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  Neu)  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  patient  goal  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  comfort  alteration  in:  pain. 

*  Input  Files  Used:  Goal_l.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_l.Prg 

«  Routine  Called:  NorderlA  or  NorderlB.Prg 

*  Modification  Date:  3  February  19BB 
m 

*  —  Screen  Input  Program  For  Goal_l  -- 

Do  Setup 
Public  Xgoalopt 

Do  tJhile  .T. 

*  —  Screen  Display  A:Goal_l.Scr  — 

Set  Color  To  lil+/B,U)+/B 

Clear 

??  Flash+"S.A:Goal_l .Scr/" 

Set   Color   To   Ui+/B,lil+/B 

Xgoalopt  =■  2 

Do  Headings 

e  EE, 67  Get  Xgoalopt  Pict  "S"  Range  1,5 

Read 

*  —  Allows  nurse  to  select  specific  goal  at  linable 

*  —    by  this  patient  — 

Do  Case 

Case  Xgoalopt  =  1 

Ngoal  -  "Communicates  Pain  Free" 

Do  B:NorderlA 

Return 

Case  Xgoalopt  =  E 

Ngoal  "  "Communicates  Experiences  Less  Pain" 

Do  B:NorderlA 

Return 
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Case  Xgoalopt  -  3 

Ngoal  =  "Communicates  Experience  Tolerable  Pain" 

Do  B:NorderlA 

Return 

Case  Xgoalopt  "  4 

Ngoal  -  "Demos  Skills/Knoujledge  To  Achieve  Goal" 

Do  B:NorderlB 

Return 

Case  Xgoalopt  =■  5 
e  17,34  Get  Goaoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Ngoal  -  Goaoth 
Do  B:NorderlA 
Return 

Endcase 

Release  Xgoalopt 


Enddo 
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m 


«»w«  NORDERl^.PRG  **************************************** 

•  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

•  Date:  20  December  1985 

•  Screen  Generated  By:  The  Softujare  Battling  Company 

Of  New  York,  cl9B5 

Provides  a  menu  for  the  nurse  to 
select  a  nursing  order  for  a  pa- 
tient luhose  goal  is  communicates 
experiences  less/tolerable  pain 
or  is  pain  free. 

NorderlA .Scr,  Time,  Emosup,  Teach 
and  Proof ile.Prg 

Orders. Dbf  and  Ncaredb.Dbf 

6oal_l .Prg 

None 

3  February  19B6 


Purpose: 


Input  Files  Used: 

Output  Files  Used: 
Calling  Routine: 
Routine  Called: 
Modification  Date 


—  Screen  Input  Program  For  NorderlA  — 


* 
m 
* 
« 

m 
* 

Do  Setup 

Public  Xnordlaopt 

Do  While  .T. 

*  —  Screen  Display  A: NorderlA . Scr  — 

Set  Color  To  U+/B,W+/B 

Clear 

??  Flash+"S. A: NorderlA. Scr/" 

Set   Color   To   UJ+/B,UJ+/B 

Xnordlaopt  -  10 

Do  Headings 

e  2E,56  Get  Xnordlaopt  Pict  "99"  Range  1,10 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  --    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  Xnordlaopt  -  1 

Morder  -  "Assess  Pain  Factors" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  Xnordlaopt  -  E 

florder  -  "Assess/Evaluate  Pain" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  "  3 

florder  -  "Encour  To  Use  Coping  Skills" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  -  4 

Morder  =  "Explain  Proc  &  Tests" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  =-  5 
@  IB, 10  Get  Ordoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Morder  =  Ordoth 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnordlaopt  "  6 

Morder  -  "Offer  PRN  Nedications" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  "  7 

florder  -  "Provide  Emotional  Support" 

Do  B: Emosup 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  =*  B 

Morder  =■  "Schedule  Quiet  Times" 
Do  B:TimB 
Do  Replaord 
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Do  Repnrord 
Return 

Case  Xnordlaopt  -  9 

norder  -  "Teach  Alt  Coping  Strategies" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  »  10 

norder  =■  "Util  Diversional  Acti..  ties" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Endcase 

Release  Xnordlaopt 


Enddo 
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**»*  NORDERIB.PRG  **«»»«**♦*»«»*»♦**•««*»*•***»»•*•* 
*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 


m 


Date:  20  December  13B5 

*  Screen  Generated  By:  The  SoFtuare  Bottling  Company 

*  Of  Neu  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a  pa- 

*  tient  uhose  goal  is  demonstrates 

*  skills  and  knowledge  to  achieve 

*  goals. 

*  Input  Files  Used  NorderlB . Scr ,  Teach  &  Procfile.Prg 

*  Output  Files  Use-.  Orders. Dbf  and  Ncaredb.Dbf 

*  Calling  Routine:  6aal_l.Prg 

*  Routine  Called:  None 

*  nodification  Date:  1  February  13BB 


«  — 


Screen  Input  Program  For  NorderlB  -- 


Do  Setup 

Public  Xnordlbopt 

Do  Uhile  .T. 

*  --  Screen  Display  A: NorderlB .Scr  — 

Set  Color  To  Ul+ZB,  W+/B 

Clear 

??  Flash+"S.A:NorderlB.Scr/" 

Set   Color   To   UJ+/B,UJ+/B 

Xnordlbopt  ="  1 

Do  Headings 

@  EE,B7  Get  Xnordlbopt  Pict  "3"  Range  1,5 

Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  Xnordlbopt  =  1 

florder  *  "Teach:  Deep  Breathing  Exer" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  =  E 

Morder  =-  "Teach:  Prog/sive  Relax  Exer" 
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florder  "  "Teach:  Deep  Breathing  Exer" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  -  2 

florder  -  "Teach:  Prog/sive  Relax  Exer" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  -  3 

Morder  -  "Teach:  Relaxation  Response" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  =  4 

riorder  -  "Teach:  Diversional  Activity" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  -  5 
@  1B,3B  Get  Ordoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

riorder  "  Ordoth 
Do  B: Teach 
Do  Replaord 
Do  Repnrord 
Return 

EndcasB 

Release  Xnordlbopt 


Enddo 
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**••  TEACH. PRG  *♦****♦**♦*♦»*******•»*♦*««*»*•«**•••*»•*»• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 
«  Date:  83   December  19B5 

*  Screen  Generated  By:  The  Softiuare  Battling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Provides  a  menu  to  select  teaching 

*  requirements  of  the  patient. 

*  Input  Files  Used:  Teach. Scr  and  Proof ile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  NorderlA,  NorderlB,  NorderEC ,  and 

*  NordBr3E.Prg 

*  Routine  Called:  None 

*  flodification  Date:  3  February  1386 
« 

*  —  Screen  Input  Program  For  Teach  — 

» 

Do  Setup 

Public  Xteachopt 

Xteachopt  "  SpaceCl] 

Do  While  .T. 

*  —  Screen  Display  A: Teach. Scr  — 

Set    Color    To   UI+/B,UJ+/B 

Clear 

??    Flash-^"S.A:Teach.Scr/" 

Set   Color   To   UJ+/B,UJ+/B 

0  13,54  Get  Xteachopt  Pict  "!" 

Read 

♦  —  Ualidate  response  — 

Do  While  .Not.  CXteachopt  -"A"  .Or.  Xteachopt  ="B"  .Or.; 

Xteachopt  -  "C"  .Or.  Xteachopt-"D" 3 

@  13,53  Clear 

Store  '  '  To  Xteachopt 

@  24,0  Say  "Re-Enter  Letter  A,  B,  C,  or  D" 

e  13,54  Get  Xteachopt  Pict  "!" 

Read 
Enddo 

♦  —  Determine  teaching  requirements  by  evaluating 

*  —    option  selected  -- 

Do  Case 

Case  Xteachopt  -  "A" 

Emoteach  ="  "Group  Teaching" 
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PassdatQ  -  "Q7B  1" 
Ptpoint  -  a 
Return 

Case  Xteachopt  -  "B" 

Emoteach  -  "Pre-op  Teaching" 

Passdata  -  "Q77  1" 

Ptpoint  -  4 

Todayonly  -  "T" 

Return 

Case  Xteachopt  -  "C" 

*  --  Return  to  previous  screen 
Return 

Case  Xteachopt  -  "D" 

Emoteach  -  "Structured  Teaching" 
Passdata  -  "078  1" 
Ptpoint  -  4 
Return 

Endcase 

Release  Xteachopt 


Enddo 
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«««*  EnOSUP  PRG  ****************************************** 

*  Author:  Gary  R.Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  Neuj  York,  clSBS 

*  Purpose:  Provides  a  menu  to  select  emotional 

*  support  requirements  of  the 

*  patient. 

*  Input  Files  Used:  Emosup.Scr  and  Procfile.Prg 

*  Dutput  Files  Used:  Nona 

*  Calling  Routine:  NorderlA,  Norder4C,  NordBr4D, 

*  and  Norder4E . Prg 

*  Routine  Called:  None 

*  Modification  Date:  25  January  1986 
* 

*  —  Screen  Input  Program  For  Emosup  — 

« 

Do  Setup 
Public  Xesupopt 
Xesupopt  =  SpaceClD 

Do  While  .T. 

*  —  Screen  Display  A: Emosup.Scr  — 

Set  Color  To  ljJ+/B,U+/B 

Clear 

??  Flash+"S.A:Emosup.Scr/" 

Set  Color  To  UJ  +  /B,U  +  /B 

e  21,54  Get  Xesupopt  Pict  "!" 

Read 

*  —  Ualidate  response  — 

Do  Uhile  .Not.  CXesupopt  ="A"  .Or.  Xesupopt  ="B"  .Dr.; 

Xesupopt  =  "C"  .Or.  Xesupopt="D" 1 

e  21,53  Clear 

Store  '  '  To  Xesupopt 

e  24,0  Say  "Re-Enter  Letter  A,  B,  C,  or  D" 

@  21,54  Get  Xesupopt  Pict  "!" 

Read 
Enddo 

*  --  Determine  emotional  support  requirements  by  eval- 

*  uating  the  option  selected  — 

Do  Case 
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Case  Xesupopt  -  "A" 

Emoteach  "  "Pt/Family  Support" 
Passdata  -  "Qya  1" 
Emopoint  "  4 
Return 

Case  Xesupopt  =  "B" 

Emoteach  -  "nodify  Lifestyle" 
Passdata  -  "QBO  1" 
Emapnint  -  4 
Return 

Case  Xesupopt  =  "C" 

Emoteach  =  "Sensory  Deprivation" 
Passdata  =  "aBl  1" 
Emopoint  =  B 
Return 

Case  Xesupopt  "  "D" 

*  --  Return  to  previous  screen 
Return 

Endcase 

Release  Xesupopt 


Enddo 
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•  «»»   ASSESS   2  ,  PRG   «««»«««««W4K«***W«*«*«*4»««WWW«»4>W«««W«»«« 

*  Author:  Bary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1SB5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  Neu)  York,  clSSS 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  nursing  assessment  for  a 

*  patient  uith  a  nursing  diagnosis 

*  of  communication  impairment: 

*  verbal . 

*  Input  Files  Used:  Assess_2.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N_Diag.Prg 

*  Routine  Called:  Relate_E.Prg 

*  Modification  Date:    3  February  1386 

m 

*  --  Screen  Input  Program  For  Assess_E  -- 

Do  Setup 
Public  XassEopt 

Do  Uhile  .T. 

*  --  Screen  Display  A: Assess_2 .Scr  — 

Set  Color  To  U)+/B,U  +  /B 

Clear 

?7  Flash+"S.A: Assess_2.Scr/" 

Set  Color  To  U+/B,U+/B 

XassEopt  -  01 

Do  Headings 

e  EE, 67  Get  XassEopt  Pict  "33"  Range  1,13 

Read 

*  --  Allows  nurse  to  document  assessment  of  the 

*  —    patient  -- 

Do  Case 

Case  XassEopt  -  1 

Nassess  "  "Anxiety" 
Do  B:Relate_E 
Return 

Case  XassEopt  =-  E 

Nassess  "  "Disorientation" 

Do  B:Relate_E 

Return 
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» 


L 


Case  XassSopt  =  3 
Nassess  -  "Fear" 
Do  B:RelQte_2 
Return 

Case  XassEopt  -  4 

Nassess  -  "Frustration" 

Do  B:Relate_E 

Return 

Case  XassEopt  -  5 
@  17, E4  Get  Assoth; 

Pict  "  !  XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nassess  =  Assoth 
Do  B:Relate_E 
Return 

Case  XassEopt  "  B 

Nassess  -  "Inability  to  Hear" 

Do  B:Relate_E 

Return 

Case  XassEopt  "  7 

Nassess  -  "Inability  to  Speak" 

Do  B:Relate_E 

Return 

Case  XassEopt  =  8 

Nassess  -  "Incomprehensible  Speech" 

Do  B:Relate_E 

Return 

Case  XassEopt  "  9 

Nassess  "  "Refusal  to  Speak" 

Do  B:Relate_E 

Return 

Case  XassEopt  "  10 
Nassess  =•  "Slurring" 
Do  B:Relate_E 
Return 

Case  XassEopt  "  11 

Nassess  =  "Stuttering" 

Do  B:Relate_E 

Return 

Case  XassEopt  =  IE 

Nassess  "  "Tearfulness" 
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Do  B:Relate_E 
Return 

Case  XassEopt  -  13 

Nassess  -  "Thought  Disorder" 

Do  B:RelatB_E 

Return 

Endcase 

Release  XassEopt 


Enddo 


I 
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f 


*  Author:  Gary  R.  HarmeyBr  LCDR  NC  USN 

*  Date:  23   December  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  Neuj  York,  cisas 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  related  factors  for  a  pa- 

*  tient  uiith  a  nursing  diagnosis  of 

*  communication,  impaired:  verbal. 

*  Input  Files  Used:  Relate.S.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Assess_2.Prg 

*  Routine  Called:  Goal_E.Prg 

*  Nodif ication  Date:  3  February  1986 
« 

*  —  Screen  Input  Program  For  Relate_2  — 

m 

Do  Setup 
Public  XrelSopt 

Do  While  .T. 

*  —   Screen   Display    A: Relate_E .Scr    — 

Set   Color    To   UJ+/B,UJ+/B 

Clear 

??  Flash+"S.A:Relate_2.Scr/" 

Set  Color  To  U+/B,U)-^/B 

Xreiaopt  =  01 

Do  Headings 

e  E2,67  Get  Xrel2opt  Pict  "S9"  Range  1,10 

Read 

*  —  Previous  assessment  is  related  to  some  cause  — 

Do  Case 

Case  XrelEopt  -  1 

Nrelate  -  "Anatomical  Impairment" 

Do  B:6oal_2 

Return 

Case  Xrel2opt  -  2 

Nrelate  -  "Cultural  Difference" 

Do  B:Goal_2 

Return 

Case  Xrel2opt  =  3 

Nrelate  =  "Developmental  Age" 
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Do  B:Goal_2 
Return 

Case  XrelEopt  -  4 

Nrelate  -  "Disease  Process" 

Do  B:Goal_E 

Return 

Case  XrelEopt  -  5 
@  17, 14  Get  Reloth; 

Pict  " ! XXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nrelate  "  Reloth 
Do  B:Goal_E 
Return 

Case  XrelEopt  =  6 

Nrelate  -  "Foreign  Language" 

Do  B:Goal_E 

Return 

Case  XrelEopt  "  7 

Nrelate  -  "Mental  Capacity" 

Do  B:Goal_E 

Return 

Case  XrelEopt  =■  B 

Nrelate  =  "Sedation" 

Do  B:Goal_E 

Return 

Case  XrelEopt  =  3 

Nrelate  =  "Surgical  Procedure" 

Do  B:Goal_E 

Return 

Case  XrelEopt  =  10 

Nrelate  "  "Treatment  Regime" 

Do  B:eoal_E 

Return 

Endcase 

Release  XrelEopt 


I 


Enddo 
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«»w«  (jQAL  2 . PRG  **«*«»*♦*****»***********************»•»»» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23   December  1985 

*  Screen  Generated  By:  The  Softuiare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  patient  goal  for  a  pa- 

*  tient  with  a  nursing  diagnosis  of 

*  communication,  impaired:  verbal. 

*  Input  Files  Used:  Goal_2.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_E.Prg 

*  Routine  Called:  NorderEA,  NorderEB  or  NorderEC.Prg 

*  Modification  Date:  3  February  1986 


« 


--  Screen  Input  Program  For  Goal_E  — 


Do  Setup 
Public  XgoaEopt 

Do  While  .T. 

*  —  Screen  Display  A:Goal_E.Scr  — 

Set  Color  To  UJ+/B,U)+/B 

Clear 

?7  Flash+"S.A:Goal_E.Scr/" 

Set  Color  To  W+/B,W+/B 

XgoaEopt  -  1 

Do  Headings 

e  EE, 67  Get  XgoaEopt  Pict  "9"  Range  1,7 

Read 

*  —  Allows  nurse  to  select  specific  goal  attainable 

*  —    by  this  patient  — 

Do  Case 

Case  XgoaEopt  -  1 

Ngoal  "•  "Communicates  Needs  Through  Uords" 

Do  B:NorderEA 

Return 

Case  XgoaEopt  =  E 

Ngoal  =  "Comm  Needs  Through  Mechanical  Tools" 

Do  B:NorderEA 

Return 
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Case  XgoaEopt  -  3 

Ngoal  -  "Demos  Skills  to  f=^chieve  Goals" 

Do  B:Norder2C 

Return 

Case  XgoaEopt  -  4 
@  IB, El  Get  Goaoth; 

Plot  "  ! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Ngoal  -  Goaoth 
Do  B:NorderEA 
Return 

Case  XgoaSopt  "  5 

Ngoal  -  "Reports  Less  Anxiety" 

Do  B:NorderEB 

Return 

Case  XgoaEopt  =-  6 

Ngoal  =  "Reports  Less  Fear" 

Do  B:NorderEB 

Return 

Case  XgoaEopt  "  7 

Ngoal  "  "Reports  Less  Stress" 

Do  BrNorderEB 
Return 

EndcasB 

Release  XgoaEopt 


•I 


Enddo 
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««»«  NORDEREA.PRG  **»•»•*•••*»•••*•*••••♦*•••«•*•••••«•««« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E3  December  19B5 

*  Screen  Generated  By:  The  Software  Battling  Company 

*  Of  Neui  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a  pa- 

*  tient  whose  goal  is  communicates 

*  needs  through  use  of  ujords  or 

*  mechanical  tools. 

*  Input  Files  Used:  NnrdarEA . Scr ,  Time,  Emosup  and 

*  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_2.Prg 

*  Routine  Called:  None 

*  Modification  Date:  3  February  19BB 
« 

*  —  Screen  Input  Program  For  NorderEA  — 

« 

Do  Setup 

Public  XnordEaopt 

Do  Uhile  .T. 

*  —  Screen  Display  A: NorderEA .Scr  — 

Set  Color  To  U+/B,W+/B 

Clear 

??   Flash+"5. A: NorderEA. Scr/" 

Set    Color    To   UJ+/B,U+/B 

XnordEaopt  -  01 

Do  Headings 

0  EE,B7  Get  XnordEaopt  Pict  "93"  Range  1,10 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  XnordEaopt  -  1 

norder  "  "Apprise  Others  of  Comm  Prob" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  XnordSaopt  "  S 

norder  -  "Provide  Emotional  Support" 

Do  B:Emosup 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord2aopt  "  3 

norder  "  "Provide  Paper  and  Pencil" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEaopt  -  4 

norder  -  "Provide  Spelling  Board" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordSaopt  "  5 
e  IB, 11  Get  Ordoth; 

Pict  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 

Read 

norder  "  Ordoth 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEaopt  "  B 

norder  -  "Prov  Translated  Phase  Chart" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEaopt  ■  7 

norder  -  "Provide  Translator" 

Do  B:TimB 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEaopt  -  B 

norder  -  "Simple  Questions  lu/  Y/N  Ans" 
Do  B : Time 
Do  Replaord 


I 


I 
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Do  Repnrord 
Return 

Case  XnordEaopt  -  9 

florder  -  "Use  Sign  Language" 

Da  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEaopt  "  10 

norder  -  "Use  Establishd  Comm  for  f=iDL" 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  XnordEaopt 


Enddo 
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•*«•  NORDEREB.PRG  •••••-••«•••••*•••••••«*•*»•••••♦•••*••• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Data:  23  DecEmber  13B5 

*  Screen  Generated  By:  The  Softuare  Bottling  Company 

*  Df  New  York,  ciaSB 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  reports  de- 

*  creased  level  of  stress,  anxiety 
»  or  fear . 

*  Input  Files  Used:  NorderEB .Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_2.Prg 

*  Routine  Called:  None 

*  riodification  Date:  5  February  13SG 
« 

*  --  Screen  Input  Program  For  NorderSB  -- 

Do  Setup 

Public  XnordEbopt 

Do  Uhile  .T. 

*  —  Screen  Display  A : NorderEB . Scr  — 

Set  Color  To  UJ  +  /B,IjJ  +  /B 

Clear 

??  Flasht-"S.A:NorderEB.Scr/" 

Set  Color  To  U)  +  /B,U  +  /B 

XnordEbopt  -  01 

Do  Headings 

e  EE, 66  Get  XnordEbopt  Pict  "33"  Range  1,10 

Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  XnordEbopt  -  1 

norder  "  "Encour  Pt  To  Speak  Slouly" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEbopt  -  E 

florder  -  "Encou  To  Util  Cope  Strategy" 
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Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordEbopt  "  3 

norder  -  "Explain  Proc  &  Elicit  Dues" 

Do  B: Time 

Do  Replaord 

Do  Rspnrard 

Return 

Case  XnordEbopt  -  4 

norder  -  "Provide  Spelling  Board" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEbopt  ■"  5 
@  IB, 10  Get  Drdoth; 

Plot  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

norder  -  Drdoth 
Do  BzTime 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordEbopt  "  B 

norder  -  "Prov  Translated  Phase  Chart" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEbopt  "  7 

norder  -  "Provide  Translator" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEbopt  "  B 

norder  -  "Simple  Questions  lu/  Y/N  Ans" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  XnordEbopt  -  9 

norcJer    -    "Use    Sign    Language" 

Do  B:Time 

Da  Replaard 

Do  Repnrard 

Return 

Case  XnordSbopt  -  10 

riarder  -  "Use  Establishd  Camm  for  ADL" 
Dn  Raplnnrd 
Do  Repnrord 
Return 

Endcase 

Release  XnardEbopt 


Enddo 


I 
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»»«»  NDRDER2C.PRG  •«••••♦••*•••*••••«•»««»»••«*»••*•«*•»** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E3  December  13B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 
»  Of  Nblu  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a  pa- 

*  tient  whose  goal  is  demonstrates 

*  skills  to  achieve  goals. 

*  Input  Files  Used:  NnrdarSC . Scr  ,  Teach  S  ProcFila.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 
Calling  Routine:  Goal_2.Prg 

*  Routine  Called:  None 

«  Modification  Date:    1  February  1986 

« 

*  —  Screen  Input  Program  For  NorderEC  — 

m 

Do  SetuD 

Public  XnordEcopt 

Do  While  .T. 

*  —  Screen  Display  A: NorderEC .Scr  — 

Set  Color  To  UJ-^/B,Ul  +  /B 

Clear 

??  Flash-^"S.A:NorderEC.Scr/" 

Set  Color  To  UJ+/B,y-^/B 

XnordEcopt  -  1 

Do  Headings 

0  EE, 67  Get  XnordEcopt  Pict  "S"  Range  1,9 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  XnordEcopt  "  1 

norder  -  "Teach:  Blink  Ix  No,  Ex  Yes" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEcopt  -  E 

Morder  -  "Teach  To  Squeeze  Hand  4  Y/N" 
Do  B: Teach 
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Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord2copt  -  3 

tlorder  -  "Teach  Use  Of  flech  Device" 

Da  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord2copt  -  4 

norder  -  "Apprise  Others  of  Comm  Prob" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEcopt  -  5 
0  18,30  Get  Drdoth; 

Pict  "  ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

norder  -  Ordoth  { 

Do  B: Teach 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordEcopt  "  6 

florder  "  "Teach:  Deep  Breathing  Exer" 

Do  B : Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordScopt  -  7 

norder  -  "Teach:  Diversional  Activity" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordEcopt  "  B 

norder  -  "Teach:  Prog/sive  Relaxation" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 


(I 
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Case  XnordScopt  "  9 

florder  -  "Teach:  Relaxation  Response" 

Do  B:TimB 

Do  Replaord 

Do  Repnrord 

Return 

Endcase 

Release  XnordEcopt 


Enddo 
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••*•  f=!SSESS_3.PRG  ••♦••••••••♦••••••••••••••—••••-•••«*«i 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 
»  Date:  23  December  19B5 

*  Screen  Generated  By:  The  Softujare  Battling  Company 

*  Of  Neuj  York,  ciaSB 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  nursing  assessment  for  a 

*  patient  uith  a  nursing  diagnosis 

*  of  impaired  physical  mobility. 

*  Input  Files  Used:  AssBSS_3.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N_Diag.Prg 

*  Routine  Called:  Relate_3.Prg 

*  nod ifi cat- ion  Dote;       d  f-sdruory  1986 

« 

*  —  Screen  Input  Program  For  A3sess_3  — 

m 

Do  Setup 
Public  Xass3opt 

Do  UhilB  .T. 

*  —  Screen  Display  A: Assess_3 .Scr  — 

Set  Color  To  UJ  +  /B,U-^/B 

Clear 

??  Flash-f  "S.A:Assess_3.Scr/" 

Set  Color  To  UJ+/B,UJ  +  /B 

Xass3Dpt  -  01 

Do  Headings 

e  EB,6B  Get  Xass3opt  Pict  "99"  Range  1,11 

Read 

*  —  Allous  nurse  to  document  assessment  of  the 

*  —    patient  — 

Do  Case 

Case  XassSopt  -  1 

NassBSs  "  "Confinement  Imposed" 

Do  B:RelatB_3 

Return 

Case  Xas33opt  "  E 

Nassess  "  "Fatiques  Easily" 

Do   B:Relate_3 

Return 
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Case  XassBopt  -  3 

NassBss  -  "Gait  ImpairBment" 

Do  B:RBlate_3 

Return 

Case  Xass3opt  -  4 

Nassess  -  "Impaired  Caordmation" 

Do  B:Relate_3 

Return 

Case  Xa3s3opt  "  5 

Nassess  -  "Inability  to  Ambulate" 

Do  B:Relate_3 

Return 

Case  Xass3opt  -  B 
e  IB, 13  Get  Assoth; 

Pict  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nassess  -  Assoth 
Do  B:Relate_3 
Return 

Case  Xass3opt  ■  7 

Nassess  -  "Inability  to  Transfer" 

Do  B:Relate_3 

Return 

Case  Xass3opt  -  B 

Nassess  -  "Inability  to  Turn" 

Do  B:Relate_3 

Return 

Case  XassSopt  -  9 

Nassess  -  "Limited  Range  DF  Motion" 

Do  B:RBlate_3 

Return 

Case  Xa3s3opt  -  10 

Nassess  -  "Reluctant  To  Move" 

Do  B:Relate_3 

Return 

Case  Xass3opt  -  11 

Nassess  -=  "Use  Of  Assistive  Devices" 

Do  B:RBlate_3 

Return 

EndcasB 

Release  Xa3s3opt 
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«»»«  RELATE_3.PRG  ••••••••»«•••*«♦••••*♦••••••*«•••••••••. 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E3  December  19B5 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  Neu)  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  related  factors  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  impaired  physical  mobility. 

*  Input  Files  Used:  Rslate.B.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Assess_3.Prg 

*  Routine  Called:  Goal_3.Prg 

*  nodification  Date:  3  February  19BB 
m 

*  --  Screen  Input  Program  For  Relate_3  — 

« 

Do  Setup 
Public  Xrel3opt 

Do  While  .T. 

•  —  Screen  Display  A: Relate_3 .Scr  — 

Set  Color  To  IjJ  +  /B,U+/B 

Clear 

??  Flash't-"S.A:Relate_3.Scr/" 

Set  Color  To  LJ-t-/B,  U-t-/B 

Xrel3opt  -  01 

Do  Headings 

@  EE.67  Get  Xrel3opt  Pict  "9"  Range  1,B 

Read 

*  —  Previous  assessment  is  related  to  some  cause  — 

Do  Case 

Case  Xrel3opt  -  1 

Nrelate  -  "Decrease  Act  Tolerance" 

Do  B:Goal_3 

Return 

Case  Xrel3opt  -  E 

Nrelate  -  "nusculoskeletal  Function" 

Do  B:6oal_3 

Return 

Case  Xrel3opt  -  3 

Nrelate  "  "Neuromuscular  Function" 
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Do  B:Goal_3 
Return 

Case  XrBl3apt  -  4 

Nrelate  -  "Pain  /  Discomfort" 

Do  B:Goal_3 

Return 

Case  Xrel3opt  "  5 

Nralats  -  "Traatment  RegimB" 

Do  B:Goal_3 

Return 

Case  Xrel3opt  =  6 
@  18,36  Get  Reloth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nrelate  -  Reloth 
Do  B:Goal_3 
Return 

Endcase 

Release  ^Xrel3opt 


Enddo 
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««««  GQ^L  3 . PRG  *«*«*««*»«««**«*«****«*****«««*»»«««»»»««» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  patient  goal  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  impaired  physical  mobility. 

*  Input  Files  Used:  Goal_3.Scr  and  Drproc.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_3.Prg 

*  Routine  Called:  Norder3A,  Norder3B,  Norder3C, 

*  Norder3D  or  NordBr3E.Prg 

*  riodification  Date:  3  February  1386 
m 

*  —  Screen  Input  Program  For  Goal_3  — 

* 

Do    Setup 
Public    Xgoa3opt 

Do   Ulhile    .T. 

*  —    Screen   Display    A:Goal_3.Scr    -- 

Set   Color    To   UJ+/B,UJ+/B 

Clear 

??   Flash+"S.A:6oal_3.Scr/" 

Set    Color    To    UJ+/B,UJ+/B 

Xgoa3opt  -  01 

Do  Headings 

e  2E,6B  Get  Xgoa3opt  Pict  "33"  Range  1,11 

Read 

*  --  Allows  nurse  to  select  specific  goal  attainable 

*  —    by  this  patient  -- 

Do  Case 

Case  Xgoa3opt  -  1 

Ngoal  "  "Able  To  Transfer  Independently" 

Do  B:Norder3D 

Return 

Case  Xgoa3opt  -  E 

Ngoal  "  "Able  To  Transfer  Uith  Assistance" 

Do  B:Norder3D 

Return 
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Case  Xgoa3opt  -  3 

Ngoal  -  "Demos  Skills  to  Achieve  Goals" 

Do  B:Norder3E 

Return 

Case  XgoaSopt  =  4 

Ngoal  -  "Increase  Range  Of  Motion  CROnD" 

Do  B:Norder3A 

Return 

Case  Xgoa3opt  "  5 

Ngoal  -  "Maint  Effective  Breathing  Pattern" 

Do  B:Norder3A 

Return 

Case  XgoaSopt  "  B 
@  18,21  Get  Goaoth; 

Pict  "!  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Ngoal  =  Goaoth 
Do  B:Norder3B 
Return 

Case  Xgoa3opt  "  7 

Ngoal  -  "Maintains  Full  Range  Of  Motion  CR0M3" 

Do  B:Norder3A 

Return 

Case  Xgoa3opt  =  B 

Ngoal  -  "Maintains  Pattern  Of  Elimination" 

Do  B:Norder3C 

Return 

Case  Xgoa3opt  "  B 

Ngoal  -  "Maintains  Skin  Integrity" 

Do  B:NordBr3B 

Return 

Case  Xgoa3opt  -  10 

Ngoal  -  "No  Additional  Contractures" 

Do  B:Norder3A 

Return 

Case  Xgoa3opt  =11 

Ngoal  -  "Performs  Activity  Of  Daily  LivingCADLD" 

Do  B:Norder3C 

Return 

EndcasB 

Release  Xgoa3opt 
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*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  19B5 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  OF  New  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  maintains 
»  maintains  full  range  of  motion 

*  CRDflD,  increases  ROn  or  no  added 

*  contractures. 

*  Input  Files  Used:  Norder3A .Scr,  Time  and  Drproc.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb . Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  nodification  Date:    5  February  13BB 

» 

*  —  Screen  Input  Program  For  Norder3A  — 

m 

Do  Setup 

Public  Xnord3aopt 

Do  UhilB  .T. 

*  —   Screen   Display    A: Norder3A.Scr    — 

Set    Color    To    UI+/B,U  +  /B 

Clear 

??    Flash-t-"S.A:Norder3A.Scr/" 

Set   Color    To   U+/B,UJ+/B 

Xnord3aopt  =  1 

Do  Headings 

0  EE, SB  Get  Xnord3aopt  Pict  "3"  Range  1,10 

Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --    case  statement,   hen  place  data  into  Ncaredb  and 

*  --    Orders. Dbf  files  — 

Do  Case 

Case  Xnord3aopt  =  1 

Horder  -  "Active  Range  Of  notion" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  Xnord3aopt  =  2 

norder  -  "Cough  &  Deep  Breath" 

Do  B:Time 

Do  Cough 

Do  Reploord 

Do  Repnrord 

Return 

Case  Xnord3aopt  =  3 

nardsr  -  "Encnuraga  Indepandant  ADL" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3aopt  =  4 

florder  =  "Gradual  Increase  ADL  Actity" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3aopt  =■  5 
@  18, 10  Get  Drdoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

florder  =  Ordoth 
Do  BrTime 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3aopt  =  6 

florder  =  "Passive  Range  Of  Motion" 

Do  B: Time 

Do  Range 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3aopt  =  7 

florder  =  "Positioning" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3aopt  =  8 
Morder  =  "Turning" 
Do  B:Time 
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Do  Replaord 
Do  Repnrord 
Return 


Case  Xnord3aopt  =  9 

Morder  =  "f=^ccom  Pt  Off  LJd 

Passdata  =  "055  2" 

Ptpoint  =  E 

Do  Replaord 

Da  Rapnrard 

Return 


015  <30mnD" 


Case  Xnord3aopt  =  10 

Morder  =  "Accompy  Pt  Off 

Passdata  =  "055  3" 

Ptpoint  =  4 

Do  Replaord 

Do  Repnrord 

Return 


Ud  O30  min]" 


Endcase 

Release  Xnord3aopt 


Enddo 
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4mnnt    fMQRQER3B  .  PRG  *4(»«4t»««w«4»«4»»»«««4»»««»«»««4K»«w««««»««««« 

»  f=iuthor:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E3  December  1985 

*  Screen  Generated  By:  The  SoFtuuare  Battling  Company 

*  Of  New  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  maintains 

*  maintains  skin  integrity  or 

*  selects  other  far  the  goal . 

*  Input  Files  Used:  Narder3B . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  riodif ication  Date:  3  February  1386 
m 

*  —  Screen  Input  Program  For  Narder3B  — 

Do   Setup 

Public   Xnord3bopt 

Do   Uihile    .T. 

*  —  Screen  Display  A: Norder3B . Scr  — 

Set  Color  To  U+/B,IjJ+/B 

Clear 

7?  Flash+"S.A:Norder3B.Scr/" 

Set   Color   To   U+/B,UI+/B 

Xnord3bopt  =■  01 

Do  Headings 

e  EE, 66  Get  XnordSbopt  Pict  "99"  Range  1,11 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  --    Orders. Dbf  files  -- 

Do  Case 

Case  Xnard3bapt  =  1 
norder  -  "Ambulate" 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  *  E 

florder  =  "f=lssist  To  Select  Diet" 
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Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bapt  "  3 

riorder  =•  "Encourage  Independent  ADL" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3bopt  =  4 

norder  =  "Massage-Promote  Circulation" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3bopt  =  5 

Morder  =  "Possessions  u/in  Reach" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  =  6 
e  18,30  Get  Drdoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

florder  =  Drdoth 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  -  7 
Morder  =  "Position" 
Do  B : Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  =  B 

Morder  =■  "Protect  Bony  Prominences" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  Xnarci3bapt  =  9 

flarder  -  "Protect  Pressure  Areas" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3bopt  =  10 

riorder  =•  "Provide  Safe  Environment" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3bopt  =  11 
riorder  -  "Siderails" 
Do  BrTime 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord3bopt 


Enddo 
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*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E3  December  1985 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  Neuj  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  luhose  goal  is  maintains 

*  pattern  of  elimination  or  per- 

*  farms  activities  of  daily  living 

*  CADLD. 

*  Input  Files  Used:  NorderSC . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  Modification  Date:  4  February  1986 

*  —  Screen  Input  Program  For  Norder3C  — 

« 

Do  Setup 

Public  Xnord3copt 

Do  While  .T.  ' 

*  —  Screen  Display  A: Norder3C .Scr  — 

Set  Color  To  UJ+/B,U+/B 

Clear 

?7  Flash+"S.A:Norder3C.Scr/" 

Set   Color   To   UJ+/B,U)+/B 

Xnord3copt  =  1 

Do  Headings 

@  E2,57  Get  Xnord3copt  Pict  "9"  Range  1,8 

Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  --    Orders. Dbf  files  — 

Do  Case 

Case  Xnord3copt  "  1 

norder  *  "Ambulate  with  Assistance" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  5  .Or.  Timeopt  "  41D 
*  —  No  precise  frequency  given 
Passdata  =  "051  18" 
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Ptpaint  =  0 
Case  CTimeopt  >  4  .And.  Timeopt  <  EED 

*  —  X  1 

Passdata  -  "051  11" 
Ftpoint  -  E 

Case  CTimeopt  >  21  .And.  Timeopt  <  25D 

*  —  X  E  or  BID 
Passdata  -  "Q51  IE" 
Ptpaint  -  4 

Case  CTimeopt  >  E4  .And.  Timeopt  <  31] 

*  —  X  3  or  TID 
Passdata  =  "051  13" 
Ptpoint  =  6 

Case  CTimeopt  >  30  .And.  Timeopt  <  34D 

*  —  X  4  or  OID 
Passdata  "  "051  14" 
Ptpoint  =  B 

Case  CTimeopt  =  34  .Or.  Timeopt  =  353 

*  —  X  B  or  04h 
Passdata  =  "051  15" 
Ptpoint  =  IE 

Case  CTimeopt  -  36  .Dr.  Timeopt  =■  37D 

*  —  X  IE  or  OEh 
Passdata  =  "051  15" 
Ptpoint  "  S4 

Case  CTimeopt  =  3B  .Dr.  Timeopt  =  39D 

*  —  X  E4  or  Olh 
Passdata  =  "051  17" 
Ptpoint  =  4B 

Endcase 

Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  =-  E 

norder  "  "Increase  Independ  Doing  ADL" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  =  3 

Morder  -  "Plan  For  Continuing  Care" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  =  4 
norder  -  "Position" 
Do  B:Time 
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Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  -  5 
e  18,23  Get  Ordoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 

Read 

florder  »  Drdoth 

Do  B: Tims 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3copt  =-  6 

norder  -  "Range  Of  Motion  CROn]" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordScopt  *  7 

riorder  -  "Diet  To  Promote  GI  Function" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  -  B 
norder  =  "Turn" 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord3copt 


Enddo 
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««««  N0RDER3D . PRG  *********************************«(««*««« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Softuiare  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  able  to 

*  transfer  independently  or  with 

*  assistance. 

*  Input  Files  Used:  Norder3D . Scr,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

«  Modification  Date:  4  February  1986 
« 

*  —  Screen  Input  Program  For  Norder3D  — 

« 

Do  Setup 

Public  Xnord3dopt 

Do  Uhile  .T. 

*  —  Screen  Display  A: Norder3D .Scr  — 

Set   Color    To   UJ+/B,Ui+/B 

Clear 

??  Flash+"S.A:Norder3D.Scr/" 

Set  Color  To  U+/B,U)+/B 

Xnord3dopt  =  1 

Do  Headings 

e  EE,67  Get  Xnord3dopt  Pict  "9"  Range  1,5 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  Xnord3dopt  -  1 

norder  -  "Assist  Bed  To  Chair" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  =  41D 
*  —  Less  than  x  3  or  TID 
Passdata  =  "051  1" 
Ptpoint  -  0 
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Case  CTimeopt  >  24  .And.  Timeopt  <  343 

*  —  X  3  or  less  than  a4h  Cx  BD 
Passdata  -  "Q51  7" 

Ptpoint  ="  E 
Case  CTimeopt  =  34  .Or.  Timeopt  =  35] 

*  —  X  6  or  Q4h 
Passdata  =  "051  8" 
Ptpoint  =  4 

Case  CTimeopt  =  36  .Or.  Timeopt  =  37D 

*  —  X  12  or  QEh 
Passdata  =  "051  9" 
Ptpoint  =  a 

Case  CTimeopt  =  38  .Or.  Timeopt  =  333 

*  —  X  24  or  Olh 
Passdata  =  "051  10" 
Ptpoint  "  IB 

Endcase 

Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3dopt  "  2 

riorder  =  "Assist  Bed  To  Uheelchair" 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  =•  413 

*  —  Less  than  x  3  or  TID 
Passdata  =  "051  1" 
Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  343 

*  —  X  3  or  less  than  04h  Cx  B3 
Passdata  =  "051  7" 

Ptpoint  -  2 
Case  CTimeopt  "  34  .Or.  Timeopt  -  353 

*  —  X  6  or  04h 
Passdata  =  "051  8" 
Ptpoint  -  4 

Case  CTimeopt  =  36  .Or.  Timeopt  =  373 

*  ~  X  12  or  Q2h 
Passdata  =  "051  9" 
Ptpoint  -  a 

Case  CTimeopt  =  38  .Or.  Timeopt  =  393 

*  —  X  24  or  Olh 
Passdata  -  "051  10" 
Ptpoint  "  IB 

Endcase 
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Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3dopt  "  3 
e  1B,E9  Get  Drdoth; 

Pict  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

riorder  -  Drdoth 
Do  Replaard 
Do  Repnrord 
Return 

Case  Xnord3dopt  =  4 

Norder  =  "Provide  Helping  Person" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3dopt  =  5 

florder  »  "Provide  nechanical  Aid" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Endcase 

Release  Xnord3dopt 


Enddo 
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#m»m   N0RDER3E  .  PRG  ****«4»»««««4i»w«4»««»«»«»*««««»«»»«««««««« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1385 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a  pa- 

*  tient  whose  goal  is  demonstrates 

*  skills  to  achieve  goals. 

*  Input  Files  Used:  NardBr3E . Scr ,  Time,  Teach  and 

*  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  Modification  Date:    3  February  1386 

# 

*  --  Screen  Input  Program  For  Norder3E  — 

Do  Setup 

Public  Xnord3eopt 

Do  Uhile  .T. 

*  --  Screen  Display  A : Norder3E . Scr  — 

Set  Color  To  U+/B,U+/B 

Clear 

??  Flash+"S.A:Norder3E.Scr/" 

Set  Color  To  U+/B,U)+/B 

Xnord3eopt  =  1 

Do  Headings 

@  EE, 67  Get  Xnord3eopt  Pict  "3"  Range  1,5 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  Xnord3eopt  =  1 

Morder  -  "Provide  Opport  To  Prac  Skil" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3eopt  =  E 

Morder  "  "Teach  Factor-Impair  Moblity" 
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Do  B: Teach 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3eopt  ="  3 

Morder  -  "Teach  Rationale  For  Skills" 

Do  B: Teach 

Do  Replaord 

Do  RBpnrord 

Return 

Case  Xnord3eopt  *=  4 
e  1B,E9  Get  Ordoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

florder  -  Qrdoth 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordSeopt  =  5 

florder  =  "Teach  Required  Exercise" 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordSeopt  -  6 

riorder  =  "Teach  Use  Df  Adjuncts/Aids" 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  XnordSeopt 


Enddo 
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««•«  f^SSESS  4 . PRG  **««««««***************************»«««» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Softiuare  Battling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  nursing  assessment  far  a 

*  patient  with  a  nursing  diagnosis 

*  of  self-care  deficit. 

*  Input  Files  Used:  AssB5S_4.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N_Diag.Prg 

*  Routine  Called:  Relate_4.Prg 

*  riodification  Date:  3  February  1986 


» 


--  Screen  Input  Program  For  Assess_4  -- 


Do  Setup 
Public  Xass4opt 

Do  Uhile  .T. 

*  --    Screen    Display    A: Assess_4 .Scr    -- 

Set   Color    To   UJ+/B,UJ  +  /B 

Clear 

??    Flash+"S.A: Assess_4.Scr/" 

Set    Color    To    liJ+/B,UJ+/B 

Xass4opt  =  01 

Do  Headings 

@  EE,6B  Get  Xass4opt  Pict  "99"  Range  1,14 

Read 

*  --  Allows  nurse  to  document  assessment  of  the 

*  —    patient  — 

Do  Case 

Case  Xass4opt  -  1 

Nassess  -  "Unable  To  Cloth  Self" 

Do  B:Relate_4 

Return 

Case  Xass4opt  =-  B 

Nassess  ="  "Unable  To  Cut  Food" 

Do  B:Relate_4 

Return 
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Case  Xass4opt  "  3 

Nassess  -  "Unable  To  Drink" 

Do  B:Relate_4 

Return 

Case  Xass4Dpt  -  4 

Nassess  =-  "Unable  To  Fasten  Clothes" 

Do  B:Relate_4 

Return 

Case  Xass4opt  "  5 

Nassess  =  "Unable  To  Feed  Self" 

Do  B:Relate_4 

Return 

Case  Xass4opt  "  B 
e  18,24  Get  Assoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nassess  "  Assoth 
Do  B:Relate_4 
Return 

Case  Xass4opt  -  7 

Nassess  -  "Unable  To  Get  To  Bathroom" 

Do  B:Relate_4 

Return 

Case  Xass4opt  =  B 

Nassess  "  "Unable  To  Plaint  Appearance" 

Do  B:Relate_4 

Return 

Case  Xass4opt  -  9 

Nassess  ="  "Unable  To  Select  Clothes" 

Do  B:Relate_4 

Return 

Case  Xass4opt  "  10 

Nassess  -  "Unable  To  Sit  On  Toilet" 

Do  B:RBlate_4 

Return 

Case  Xass4opt  =  11 

Nassess  -  "Unable  To  Do  Toilet  Hygiene" 

Do  B:Relate_4 

Return 

Case  Xass4opt  =■  IE 

Nassess  -  "Unable  To  Rise  Off  Toilet" 
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Do  B:RBlatB_'i 
Return 

Case  XassHopt  -  13 

Nassess  -  "Unable  To  Do  Flush  Toilet^ 

Do  B:RBlate_4 

Return 

Case  Xass4opt  -  14 

Nassess  -  "Unable  To  Wash  Self" 

Do  B:Relate_4 

Return 

Endcase 

Release  Xass4opt 


Enddo 
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««««  RELATE  4  .  PRG  ***************4(*«*4»************«**4(«»»4 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  13B5 

*  Screen  Generated  By:  The  Softuiare  Battling  Company 

*  Of  New  York,  cl3S5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  related  factors  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  self  care:  deficit. 

*  Input  Files  Used:  Relate_4.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Assess_4.Prg 

*  Routine  Called:  6oal_4.Prg 

*  nodification  Date:  3  February  13BB 
* 

*  --  Screen  Input  Program  For  Relate_4  — 

m 

Do  Setup 
Public  Xrel4opt 

Do  Uhile  .T. 

*  —  Screen  Display  A: Relate_4 .Scr  — 

Set   Color    To   liJ+/B,U)+/B 

Clear 

?7    Flash+"S.A:Relate_4.5cr/" 

Set  Color  To  U+/B,U)+/B 

Xrel4opt  -  01 

Do  Headings 

e  EE, 66  Get  Xrel4opt  Pict  "33"  Range  1,10 

Read 

*  —  Previous  assessment  is  related  to  some  cause  — 

Do  Case 

Case  Xrel4opt  -  1 

Nrelate  -  "Activity  Intolerance" 

Do  B:Goal_4 

Return 

Case  Xrel4opt  =  E 

Nrelate  =  "Depression" 

Do  B:6oal_4 

Return 

Case  Xrel4opt  =  3 

Nrelate  =  "Developmental  Phase" 
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Do  B:Goal_4 
Return 

Case  Xrel4opt  =  4 

Nrelate  -  "riusculoskeletal  Function" 

Do  B:GGal_4 

Return 

Case  Xrel4opt  =  5 
e  17, 14  Get  Reloth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Nrelate  =  Reloth 
Do  B:6oal_4 
Rf  :urn 

Case  Xrel4opt  =  6 

Nrelate  =  "Neuromuscular  Impairment" 

Do  B:Goal_4 

Return 

Case  Xrel4opt  =  7 

Nrelate  =  "Pain  /  Discomfort" 

Do  B:Goal_4 

Return 

Case  Xrel4opt  =  a 

Nrelate  =  "Perceptual  Impairment" 

Do  B:Goal_4 

Return 

Case  Xrel4opt  =  3 

Nrelate  =  "Sensory  Impairment" 

Do  B:Goal_4 

Return 

Case  Xrel4opt  =  10 

Nrelate  =  "Severe  Anxiety" 

Do  B:Goal_4 

Return 

Endcase 

Release  Xrel4opt 


Enddo 
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*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  E3  December  19B5 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 
«  Of  Neuj  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  patient  goal  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  self-care:  deficit. 

*  Input  Files  Used:  GDal_4.Scr  and  Prncfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_4.Prg 

*  Routine  Called:  Norder4A,  Norder4B,  Norder4C, 

*  Norder4D  or  Norder4E.Prg 

*  Modification  Date:  25  January  1386 

*  --    Screen  Input  Program  For  Goal_4  -- 

m 

Do  Setup 

Public    Xgoa4opt , Xgoa4cur 

Xgoa4cur    *    Spaced] 

Do   Ulhile    .T. 

*  —  Screen  Display  A:6oal_4.Scr  -- 

Set    Color    To   UI+/B,U+/B 

Clear 

??    Flash+"S.A:Goal_4.Scr/" 

Set  Color  To  U  +  /B,UJ+/B 

Xgoa4opt  =  1 

Do  Headings 

@  El, 67  Get  Xgoa4opt  Pict  "9"  Range  1,5 

Read 

*  —  Alloujs  nurse  to  select  specific  goal  attainable 

*  --    by  this  patient  and  current  level  of  care  the 

*  --    the  patient  requires  — 

Do  Case 

Case  Xgoa4opt  =  1 

Ngoal  =  "Func  @  Level  0,  Full  Self  Care" 

Do  Current 

Do  Replaord 

Do  B:Norder4A 

Return 
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Case  Xgoa4opt  " 
NgoDl  =  "Func 
Do  Current 
Do  Replaord 
Do  B:Narder4B 
Return 


Level  1,  Use  Of  Equip/Device' 


Case  Xgaa4opt  = 
Ngoal  -  "Func 
Do  Current 
Do  Replaord 
Do  B:Norder4C 
Return 


Level  E,  Needs  Assist/Supervis" 


Case  Xgoa4opt  =  4 

Ngoal  =  "Func  @  Level  3  Needs  Assist/Use  Device" 

Do  Current 

Do  Replaord 

Do  B:Norder4D 

Return 

Case  Xgoa4opt  =  5 

Ngoal  =  "Func  0  Level  4  Dependent/No  Participtn" 

Do  Current 

Do  Replaord 

Do  B:Norder4E 

Return 

Endcase 

Release  Xgoa4opt , Xgoa4cur 


Enddo 
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««««  N0RDER4A . PRG  **************************************** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Softujare  Bottling  Company 

*  Of  Neuj  York,  cl3B5 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  functions 

*  at  level  0:  full  self  care. 

*  Input  Files  Used:  NDrdBr4A . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  6oal_4.Prg 

*  Routine  Called:  None 

*  Modification  Date:  3  February  13B6 
» 

*  --  Screen  Input  Program  For  Norder4A  — 

Do  Setup 

Public  Xnord4aopt 

Do  While  .T. 

*  --  Screen  Display  A: Norder4A .Scr  — 

Set  Color  To  U+/B,W+/B 

Clear 

??  Flash+"S.A:Norder4A.Scr/" 

Set   Color   To   UI+/B,U+/B 

Xnord4aopt  =■  1 

Do  Headings 

G  EE, 67  Get  Xnord4aopt  Pict  "3"  Range  1,3 

Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  — 

Do  Case 

Case  Xnord4aopt  =  1 

dorder  ="  "Supprt  Increse  Indep  In  ADL" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4aopt  =  E 

norder  -  "Peds  Recreation/Observation" 
Passdata  -  "QEB  1" 
Ptpoint  =  8 
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Do  Replaord 
Do  Repnrord 
Return 

Case  XnQrd4aDpt  =  3 
@  17, 4E  Get  OrdDth; 

Pict  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

florder  -  Ordath 
Da  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord4aopt 


Enddo 
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««««  N0RDER4B . PRG  ***»**^******************************»*»* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  19B5 

*  Screen  Generated  By:  The  Scftuiare  Bottling  Company 

*  Of  New  York,  cl3B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  functions 

*  at  level  1:  needs  equipment  or 

*  device. 

*  Input  Files  Used:  Norder4B . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  6oal_4.Prg 

*  Routine  Called:  None 

*  flodification  Date:  3  February  19BB 

*  —  Screen  Input  Program  For  Norder4B  — 

« 

Do  Setup 

Public   Xnord4bopt 

Do   UJhile    .T. 

*  —  Screen  Display  A: Norder4B .Scr  — 

Set   Color    To   UI+/B,U+/B 

Clear 

??  Flash+"S.A:Norder4B.Scr/" 

Set    Color    To   UJ+/B,UI+/B 

Xnord4bopt  -  1 

Do  Headings 

e  EE, B7  Get  Xnord4bopt  Pict  "9"  Range  1,8 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  -- 

Do  Case 

Case  Xnord4bopt  =  1 

Morder  =  "Provide  Equip  For  Bathing" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4bopt  =  E 

Norder  =  "Provide  Equip  For  Dressing" 
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Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4bopt  -  3 

Morder  -  "Pravide  Equip  For  Feeding" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4bopt  -  4 
@  IB, 11  Get  Ordoth; 

Pict  ■'!  XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

Morder  =  Ordoth 
Do  B : Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4bopt  "  5 

riorder  =  "Provide  Equip  For  Toileting" 

Do  BrTime 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4bopt  =•  6 

Morder  =  "Peds  Recreation/Observation" 

Passdata  -  "QE6  1" 

Ptpoint  =  B 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4bopt  "  7 

Morder  =■  "Spoon  Feed  Patient" 

Passdata  -  "QEB  1" 

Ptpoint  -  B 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4bopt  =  B 

Morder  -  "Spoon  Feed  Child" 
Passdata  =-  "QEB  E" 
Ptpoint  -  10 
Do  Replaord 
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Do  Repnrord 
Return 

EndcQse 

Release  Xnord4bapt 


Enddo 
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««««  N0R0ER4C . PRG  ««***«««»««*««*****««**********««*««««•« 

*  Author:  Gary  R.  HarmeyBr  LCDR  NC  USN 

*  Date:  E3  December  13B5 

*  Screen  Generated  By:  The  Softuiare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  functions 

*  at  level  2:  needs  assistance, 

*  supervision  or  other. 

*  Input  Files  Used:  Norder4C . Scr ,  Time,  Emosup  and 

*  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  6oal_4.Prg 

*  Routine  Called!  None 

*  Modification  Date:  3  February  1386 
* 

*  —  Screen  Input  Program  For  Norder4C  — 

Do  Setup 

Public  Xnord4copt 

Do  Uhile  .T.  ' 

*  —  Screen  Display  A: Norder4C . Scr  — 

Set  Color  To  ljJ+/B,U+/B 

Clear 

??  Flash+"S.A:Norder4C.Scr/" 

Set    Color    To   U+/B,UJ+/B 

Xnord4capt  =-  01 

Do  Headings 

e  EE,BB  Get  Xnord4copt  Pict  "33"  Range  1,16 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  -- 

Do  Case 

Case  Xnord4copt  =  1 

Morder  -  "Assist  To  Dress" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  Xnord4copt  =  E 

florder  =  "Assist  To/From  Bathroom" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  3 

norder  =  "Assist  Uith  Partial  Bath" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  4 

norder  -  "Assist  To  Comb/Brush  Hair" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  5 

norder  =-  "Dress  Patient" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  =  6 
@  18, IE  Get  Drdoth; 

Pict  "! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

norder  =  Qrdoth 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  "  7 

norder  -  "Feed  Patient" 

Passdata  -  "QEB    1" 

Ptpoint  -  6 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  8 

norder  =  "Give  Emotional  Support" 
Do  B:Emosup 
Do  Replaord 
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Do  Repnrard 
Return 

Case  Xnord4copt  ■  9 

Marder  -  "Give  Complete  Bath" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  -  10 

norder  "  "Keep  Commode  0  Bedside" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =■  11 

Morder  ■=  "Keep  Urinal/Bedpan  Near" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  IS 

riorder  "  "Peds  Recreation/Dbservation" 

Passdata  =  "QaS  1" 

Ptpoint  =  B 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  "  13 

Morder  =  "Set  Up  Food  Tray" 

Do  BrTime 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  14 

Morder  =  "Shave  Patient" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4copt  =  15 

Morder  -  "Socialize  During  Meals" 
Do  Replaord 
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Do  Repnrord 
Return 

Case  Xnord4copt  =  IB 

norder  =  "Spoon  Feed  Child" 

Passdata  =  "QEB  E" 

Ptpoint  =  10 

Do  Replaord 

Do  Repnrord 

Return 

EndcQse 

Release  Xnord4copt 


Enddo 
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««««  M0PD£P4D  .  PRE  **»«»»4(«»******************«***4>««»»»««« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Softuare  Bottling  Company 

*  Of  Neuj  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  functions 

*  at  level  3:  needs  assistance  and 

*  uses  equipment. 

*  Input  Files  Used:  Norder4C . Scr ,  Time,  Emosup  and 

*  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_4.Prg 

*  Routine  Called:  None 

*  Modification  Date:    3  February  13B6 

« 

*  --  Screen  Input  Program  For  Norder4D  — 

m 

Do  Setup 

Public  Xnord4dDpt 

Do  Uhile  .T.  ' 

*  —  Screen  Display  A: Norder4D . Scr  — 

Set   Color   To   IJ+/B,UJ+/B 

Clear 

77  Flash+"S.A:Norder4D.Scr/" 

Set  Color  To  U+/B,U+/B 

Xnord4dopt  =  01 

Do  Headings 

e  2E,6B  Get  Xnord4dopt  Pict  "39"  Range  1,16 

Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  --    case  statement,  then  place  data  into  Ncaredb  and 

*  —    Orders. Dbf  files  -- 

Do  Case 

Case  Xnord4dopt  -  1 

florder  "  "Assist  To  Dress" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  Xnord4dapt  -  E 

Morder  -  "Assist  To/From  Bathroam" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnard4dopt  =  3 

Morder  -  "Assist  With  Partial  Bath" 

Do  B:TimB 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  =■  4 

florder  -  "Assist  To  Comb/Brush  Hair" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  =  5 

florder  =  "Dress  Patient" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  =  6 
@  IS, IE  Get  Drdoth; 

Pict  "!  XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

florder  "  Drdoth 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  -  7 

Horder  -  "Feed  Patient" 

Passdata  =  "QEB  1" 

Ptpoint  "•  6 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  -  B 

florder  -  "Give  Emotional  Support" 
Do  B:Emosup 
Do  Replaord 
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Do  Repnrord 
Return 

Case   Xnorcl4dopt   =   3 

norder  -  "Give  Complete  Bath" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  -  10 

florder  "  "Keep  Commode  @  Bedside" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  =  11 

florder  *  "Keep  Urinal/Bedpan  Near" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  =  12 

florder  -  "Provide  Necessary  Equipment" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  =  13 

florder  "  "Provide  For  Hygiene" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  -  14 

florder  "  "Set  Up  Food  Tray" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  =  15 

florder  =  "Spoon  Feed  Child" 
Passdata  =  "028  2" 
Ptpoint  -  10 
Do  Replaord 
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Do  Repnrord 
Return 

Case  Xnord4dapt  =  16 

Morder  =  "Peds  Recreation/Observation" 

Passdata  -  "QBB  1" 

Ptpoint  -  B 

Do  Replaord 

Do  Repnrord 

Return 

Endcase 

Release  Xnord4dopt 


Enddo 
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4»«««  N0RDER4E.PRG  **4»«ww«»«««w««««»»«««««««««w««'«w««»««»»« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Softuare  Battling  Company 

*  Of  Neu  York,  01985 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  functions 

*  at  level  4:  dependent  and  does 

*  not  participate  in  cara . 

*  Input  Files  Used:  Norder4E . Scr ,  Time,  Emosup  and 

*  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_4.Prg 

*  Routine  Called:  None 

*  Modification  Date:    3  February  1986 

m 

*  —  Screen  Input  Program  For  Norder4E  — 

m 

Do  Setup 

Public  Xnord4eopt 

Do  While  .T.  '- 

*  —  Screen  Display  A : Norder4E . Scr  — 

Set  Color  To  U  +  /B,IJ  +  /B 

Clear 

??  Flash+"S.A:Narder4E.Scr/" 

Set  Color  To  UJ  +  /B,UJ  +  /B 

Xnord4eopt  =  01 

Do  Headings 

@  22,66  Get  Xnord4eopt  Pict  "99"  Range  1,16 

Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --    case  statement,  then  place  data  into  Ncaredb  and 

*  --    Orders. Dbf  files  — 

Do  Case 

Case  Xnord4eopt  =  1 

florder  "■  "Assist  To/From  Bathroom" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Case  Xnord4eopt  =  E 

norder  "  "Assist  To/From  Commode" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eapt  =  3 

Morder  ■=  "Assist  To  Comb/Brush  Hair" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  4 

florder  =  "Dress  Patient" 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4eopt  =  5 

riorder  =■  "Feed  Patient" 

Passdata  =  "028  1" 

Ptpoint  =  6 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  6 
@  IB, IE   Get  Qrdoth; 

Pict  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX" 
Read 

norder  =  Qrdoth 
Do  BrTime 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4eopt  =  7 

tlorder  -  "Give  Complete  Bath" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  8 

norder  =  "Give  Emotional  Support" 
Do  B : Emosup 
Do  Replaord 
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Da  Repnrord 
Return 

Case  Xnord4eopt  =  9 

Morder  =  "Provide  For  Oral  Hygiene" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  10 

Morder  =  "Provide  For  Personal  Hygene" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  11 

norder  =  "Provide  Urinal/Bedpan" 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  12 

Morder  =  "Spoon  Feed  Child" 

Passdata  =  "QEB  B" 

Ptpoint  =  10 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  13 

Morder  =  "Other  Activity  015  OOminD" 

Passdata  =  "056  E" 

Ptpoint  =  E 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  14 

Morder  =  "Other  f=ictivity  OBOminD" 

Passdata  -  "OSB  3" 

Ptpoint  =■  4 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  =  15 

Morder  ="  "Special  Procedure  Ol  <Ehr]" 
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Passdata  = 
Ptpoint  =  B 
Do  Replaord 
Do  Repnrord 
Return 
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Case  Xnord4eapt  =  IB 

norder  -  "Xtra  Linen  Chge/Partal  Bath" 
Do  BrTime 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  =  41D 

*  —  Less  than  x  6  per  day 
Passdata  =  "DE4  1" 
Ptpoint  =  0 

Case  CTimeopt  =  34  .Or.  Timeopt  =  35D 

*  —  X  2  per  shift  or  x  6  per  day 
Passdata  -  "024  2" 

Ptpoint  =  4 
Case  CTimeopt  =  3B  .Or.  Timeopt  =  37] 

*  —  X  4  per  shift  or  x  IE  per  day 
Passdata  -  "024  3" 

Ptpoint  =  a 
Case  CTimeopt  =  3S  .Dr.  Timeopt  =  39] 

*  —  X  B  per  shift  or  x  24  per  day 
Passdata  =  "024  4" 

Ptpoint  =  IB 
Endcase 

Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord4eopt 


Enddo 
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««»«  I Nf^CT I UE . PRG  «»««««»«««»«««»»«««««»»«««»«««»»»««»»»«« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  January  1386 

*  Screen  Generated  By:  The  Softiuare  Bottling  Company 

*  Of  Neu  York,  cl3B5 

*  Purpose:  Displays  the  patient's  nursing  care 

*  plan  and  allows  it  to  be  modified 

*  by  inactivating  portions  of  it. 

*  Input  Files  Used:  Inactive. Scr  and  Procfile.Prg 

*  Output  Files  Used:  Ncaredb.Dbf 

*  Calling  Routine:  Nursel.Prg 

*  Routine  Calls:  None 

*  nodification  Date:  4  February  19BB 
m 

*  --  Screen  Input  Program  For  Inactive  -- 

« 

Do  Setup 

Public  Xinaopt , Xidate, Xitime , Xinurse , Xnpack 
Public  Xiemo, Xifreq, Xmptfmpssn, Xidiag, Xmord 
Public  Xigoal , Xi assess , X ire late, Xiord 
Xnpack  =  .F. 

*  --  Identify  correct  patient  and  isolate  the  nursing 

*  --    care  plan  -- 

Use  B:Ncaredb 

Store  " '"  +  Ptf mpssn  +  ""  "  To  Xmptfmpssn 

Locate  For  Nfmpssn  =  SXmptfmpssn 

Do  While  .T. 

*  --  Store  data  from  Dbf  file  into  variable  names  — 

Xidate  =  Ndate 

Xitime  =  Ntime 

Xinurse  =  Nurse 

Xiemo  =  Emotea  _^ 

Xifreq  =  Nfreq 

Xidiag  =  Ndiag 

Xigoal  =  Goal 

Xiassess  =  Assess 

Xirelate  =  Relate 

Xiord  =  Nord 

*  --  Screen  Display  B : Inactive .Scr  — 

Set  Color  To  U+/B,U-t-/B 

Clear 

??  Flash+"S.B: Inactive. Scr/" 
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Set  Color  To  UJ-t-/B,U+/B 

Do  Headings 

Xinaopt  =  1 

@  13,1  Say  Xitime 

e  13,9  Say  Xidate 

e  13, 18  Say  Xidiag 

e  13,46  Say  Xiassess 

0  14, 1  Say  Xirelate 

G  14,27  Say  Xigoal 

@  15, 1  Say  Xiard 

0  15,28  Say  XiFreq 

@  15,41  Say  Xiemo 

@  15,51  Say  Xinurse 

@  aa,S7   Get  Xinaopt  Pict  "S"  Range  0,4 

Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xinaopt  =  0 

*  —  Sign-Off 
If  Xnpack  =  .T. 

Pack 
Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Plaster 

Case  Xinaopt  =  1 

*  —  Next  Plan 
Skip 

Do  Uihile  CNfmpssn  #  &Xmptfmpssn] 
If  E0FC3 

Nmenu  ="1" 

@  E4,5  Say  "No  Additional  Care  Plans  On  This  " 

@  24,38  Say  "Patient  —  Press  Any  Key  To  " 

@  24,66  Say  "Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

If  Xnpack  -  .T. 
Pack 

Endif 

Return 
Else 

Skip 
Endif 
Enddo 
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If  EOF  CD 

Nmenu  -"1" 

e  E4,5  Say  "No  Additional  Care  Plans  On  This  " 

@  24, 38  Say  "Patient  —  Press  Any  Key  To  " 

0  a4,56  Say  "Continue" 

Set  Console  Off 

Uait 

Set  Console  On 

If  Xnpack  =  .T. 
Pack 

Endif 

Return 
Else 

Loop 
Endif 

Case  Xinaopt  =  E 

*  --  Inactivate  Plan 
Xnpack  =  .T. 

Store  "'"  +  Xiord  +  "'"  To  Xmord 

*  —  Remove  corresponding  order  from  Orders. Dbf 

Use  B: Orders 

Locate  For  CFmpssn=SXmptf mpssn  .And.  Order=SXmord3 

Delete 

Pack 

*  —  Remove  nursing  care  plan  data  from  Ncaredb.Dbf 

Use  B:Ncaredb 
Delete 
Skip 

Do  While  CNfmpssn  #  &Xmptfmpssn] 
If  EOFC] 

Nmenu  ="1" 

0  E4,5  Say  "No  Additional  Care  Plans  On  This  " 

@  E4,3a  Say  "Patient  —  Press  Any  Key  To  " 

e  E4,6B  Say  "Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

Pack 

Return 
Else 

Skip 
Endif 
Enddo 
If  EOF  CD 
Nmenu  ="1" 
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@  E4,5  Say  "No  Additional  Care  Plans  On  This  " 

e  a4,3B  Say  "Patient  —  Press  Any  Key  To  " 

e  24,66  Say  "Continue" 

Set  Console  Off 

Uait 

Set  Console  On 

Pack 

Return 
Else 

Loop 
Endif 

Case  Xinaopt  =  3 

*  —  Nurse  Master 
If  Xnpack  =■  .T. 

Pack 
Endif 

Nmenu  ="1" 
Return 

Case  Xinaopt  =  4 

*  —  Master 

If  Xnpack  =  .T. 

Pack 
Endif 

Nmenu  ="  " 
Return 

Endcase 

Release  Xinaopt, Xidate , Xitime , Xinurse , Xnpack 
Release  Xiemo, Xif req , Xmptf mpssn, Xidiag , Xmord 
Release  Xigoal , Xiassess, X ire late, Xiord 

Enddo 
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«4K««  ^OOELETE.PRG  *******************************«»»»»»««« 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  9  January  13B6 

*  Screen  Generated  By:  The  Softiuare  Bottling  Company 

*  Of  Neuj  York,  cl985 

*  Purpose:  AlloLus  the  data  processing  person- 

*  nel  to  choose  to  add  or  delete  a 

*  user . 

*  Input  Files  Used:  Addelete . Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Plaster  .  Prg 

*  Routine  Calls:  Useinfo  or  Delete. Prg 

*  nodification  Date:  E5  January  13BB 
« 

*  —  Screen  Input  Program  For  Addelete  — 

Do  Setup 

Public  Xaddelopt 

Do  While  .T. 

*  —  Screen  Display  B : Addelete . Scr  — 

Set  Color  To  UJ+/B,U-t-/B 

Clear 

??  Flash+"S.B: Addelete. Scr/" 

Set  Color  To  U)+/B,U+/B 

Xaddelopt  =  0 

0  22,67  Get  Xaddelopt  Pict  "3"  Range  0,2 

Read 

*  --  Evaluate  action  based  on  the  option  selected  -- 

Do  Case 

Case  Xaddelopt  -  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xaddelopt  =  1 

*  —  Add  A  User 
Do  B:Useinfo 
Loop 

Case  Xadmitopt  =  2 

*  —  Delete  A  User 
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Do  B: Delete 
Loop 

EndcQse 

Release  Xaddelopt 


Enddo 
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« 

Author: 

* 

Date: 

* 

4» 

Screen  Generated  By 

0 

Purpose: 

m 

Input  Files  Used: 

* 

Output  Files  Used: 

m 

Calling  Routine: 

* 

Routine  Called: 

* 

Modification  Date: 

« 

««««  USEINFQ.PRG  «**************«****«**«*********»«*«**•» 

Gary  R.  Harmeyer  LCDR  NC  USN 
IE  December  19B5 
The  Softujare  Bottling  Company 

Df  Neuj  York,  cl9B5 
Allou  data  processing  personnel  to 

add  neiu  user . 
Useinfo.Scr  and  Procfile.Prg 
Useinfo.Dbf 
Addelete . Prg 
None 
4  February  1986 

*   --  Screen  Input  Program  For  Useinfo  -- 

« 

Do  Setup 

Public  XufinitiQl,Xuminitial, Xulname 

Publ ic  Xrequestor , Xcodeuord, Xaccess 

Xuf initial  =  "  .  "+SpaceC03 

Xuminitial  =  SpaceC3] 

Xulname  =  SpaceClED 

Xrequestor  =  SpaceC3]  j 

Xcodeujord  =  SpaceCSD 

Xaccess  -  3 

Do  While  .T. 

*  —  Screen  Display  B : Useinfo . Scr  -- 

Set  Color  To  U+/B,U+/B 

Clear 

??  Flash+"S.B:Useinfo.Scr/" 

Set  Color  To  U+/B,U+/B 

e  9,43  Get  Xufinitial  Pict  " ! . " 

e  11,43  Get  Xuminitial  Pict  " ! ! ! " 

G  13,43  Get  Xulname  Pict  " ! XXXXXXXXXXX" 

@  16,43  Get  Xrequestor  Pict  "!!!" 

@  18,43  Get  Xcodeujord  Pict  "!!!!!" 

@  20,43  Get  Xaccess  Pict  "9"  Range  0,4 

Read 

Use  B: Useinfo 

Do  While  .Not.  EDFC] 

Skip 
Enddo 
Append  Blank 

*  —  Put  data  from  variable  names  into  Dbf  file  -- 
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Replace  Ufinitial  With  Xufinitial 
Replace  Uminitial  With  Xuminitial 
Replace  Ulname  Ulith  Xulname 
Replace  Requestor  Uith  Xrequestcr 
Replace  Codeuord  Ulith  Xcadeuord 
Replace  Access  Uith  Xaccess 

Return 

Release  Xufinitial , Xuminitial , Xulname 

Release  Xrequestcr  ,  Xcodeuicrd ,  Xaccess 


Enddo 
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««»w  DELETE. PRG  ************^*******»*******»********»»»»m» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  3  January  1385 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of    Nblu    York,    cl3B5 

*  Purpose:  Delete  a  user. 

*  Input  Files  Used:  Delete. Scr  and  Procfile.Prg 
«  Output  Files  Used:  Useinfo.Dbf 

*  Calling  Routine:  Addelete.Prg 

*  Routine  Calls:  Nona 

*  riodification  Date:  4  February  1386 
♦ 

*  --  Screen  Input  Program  For  Delete  -- 

Do  Setup 

Public  Xdelopt , Xdlulname, Xdlufinit,Xdluminit 

Public  Xdlreq , Xdlacc , Xusepack 

Xusepack    =    .F. 

Do   UJhile    .T. 

*  —  Store  data  from  Dbf  file  into  variable  names  — 

Use  B:Useinfo 
Xdlulname  =  Ulname 
Xdlufinit  =  Ufinitial 
Xdluminit  =  Ummitial 
Xdlreq  =  Requestor 
Xdlacc  =■  Access 

*  —  Screen  Display  B: Delete. Scr  — 

Set  Color  To  U+/B,ljJ  +  /B 

Clear 

??  Flash+"S.B:Delete.Scr/" 

Set  Color  To  U+/B,U+/B 

Xdelopt  =  1 

@  13,5  Say  Xdlulname 

@  13, 13  Say  Xdlufinit 

e  13,22  Say  Xdluminit 

d  13,33  Say  Xdlreq 

e  13,65  Say  Xdlacc 

0  22,57  Get  Xdelopt  Pict  "3"  Range  0,3 

Read 

♦  --  Evaluate  action  based  on  the  option  selected  -- 

Do  Case 


360 


Case  Xdischopt  =  0 

*  —  Sign-Off 

If  Xusepack  =  .T. 

Pack 
Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdischopt  =■  1 

*  —  Next  User 
Skip 

If  EOF  CD 

@  24,15  Say  "No  Additional  Users  —  Press  " 

e  24,44  Say  "Any  Key  To  Continue" 

Set  Console  Off 

Wait 

Set  Console  On 

If  Xusepack  =  .T. 
Pack 

Endif 

Return 
Else 

Loop 
Endif 

Case  Xdischopt  =  E 

*  --  Delete  User 
Xusepack  =  .T. 
Delete 

Skip 

If  EOF  CD 

@  24,15  Say  "No  Additional  Users  —  Press  " 

e  E4,44  Say  "Any  Key  To  Continue" 

Set  Console  Off 

Uait 

Set  Console  On 

Pack 

Return 
Else 

Loop 
Endif 

Case  Xdischopt  =  3 

*  —  Return  To  Add/Delete  Screen 
If  Xusepack  =  .T. 

Pack 
Endif 
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Close  Databases 
Return 

Endcase 

Release  Xdelapt , Xdlulname, Xdlufinit,Xdluminit 

Release  Xdlreq , Xdlacc , Xusepack 


Enddo 
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APPENDIX  "F 
PROGRAM  SCREENS 


A    PROTOTYPE  ••  •• 

•••    ••• 

PROJECT  •        • 

•••        ••• 

FOR  •  •  BY 

•••  ••• 

THE  •  •  GARY  R.  HflRHEYER 

*•••  ••••  LCDR  NC  USN 

NAUY  NURSE  CORPS  •  • 

•  •  HARCH   19B6 

•  • 

•  •        NAUAL  POSTGRADUATE  SCHOOL 

••••     •••• 

•     •  nONTEREY,  CALIFORNIA 

RELEASE  1 


PRESS  ANY  KEY  TO  BEGIN 


Fi2:ure  1 
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»•   Piaasa   Sign   On   By    Entanng    Password 


•*   Passuiord 


FisTure    la 


Prototype  naatar  Scraan  •• 


Dote  Tima 


»•   Salact    tha   Dasirad   Option    •• 


1]    fldmission's    Dapartment 


2D    Doctor's   nastar 


3D    Nursing    riastsr 


4D    System   Administration 


0]    Sign-Off 


Currant  User: 


Select  ana  number  CO-43  ---->  • 


Figure  2 


3b^■ 


•*•  SELECT  ADMIT  /  DISCHARGE  OPTION  ••• 


IJ   Admit  A  Patient. 


2]   Discharge  A  Patient 


0]  Sign-Off 


Current  User: 


Select  one  number  CO-2]  -— > 


Figure  3 


Patient  Admission  Farm 


Last  Name: 

Registration  No: 

First  Name: 

Medical  Diagnosis: 

nid  Initial: 

Physician: 

Rate/Rank: 

Prognosis: 

FHP-SSN: 

- 

Allergies: 

BirthdatB: 

/ 

/ 

Nursing  UJard: 

Age: 

Room  Number: 

Sex: 

Bed: 

Admit  Date: 

/ 

/ 

Figure  3 • 1 
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•••  DISCHfiRGE  (^  PATIENT 


FnP-SSN 


Patient  Name 


Practitioner 


03  Sign-off   1]  Next  Patient  22    Discharge  Patient   3D  Admit/Discharge  Scr 


Current  User: 


Select  one  number  CO-3]  — ->   > 


Figure  3-2 


••  Nurse's  Station  Selection  •• 


Date      Time 


•••  Select  Nursing  Unit  to  Display  Patients  •« 


13  2E   Surgical  Ward 


S3  3E   nedical  Ward 


03  Sign-Off                             33  Haster  Screen 

Current  User: 

Select  one  number  CO-3  3  — ->  ■ 

Figure  ^■ 
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••  Patient  Selection  ••     Ward   2E   Surgical 


Date 


Time 


•••  Select  Patient  ••• 


RM  BED 


PATIENT 


ID  1  (^ 

S]  1  B 

33  2  A 

4]  2  B 

5]  3  A 

6]  3  B 


OD  Sign-Off 


7]  nastar  Screen 


Current  User; 


Select  one  number  CO-7]  — ->  ■ 


FisTure  ^.la 


••  Patient  Selection   •• 


Uard      3E      tledical 


Date 


Tims 


•••  Select  Patient  ••• 


Rn  BED 


PATIENT 


1]  1  A 

2]  1  B 

3D  2  A 

4D  2  B 

5D  3  A 

6D  3  B 


OD  Sign-Off                           73  Hester  Screen 

Current  User: 

Select  one  number  C0-7D  — ->  ■ 

Fierure  4.1b 
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UJarCt  Room  Bed 


Patient 


Reg  tt 


Date 


Time 


DOCTOR'S  nflSTER  SCREEN 


1]  Order  Entry 

23  Admit  /  Transfer  /  Discharge  Patient 

33    Revieuj   riedical    Orders 

4  3  Print  nedical  Orders 

53  Discontinue  An  Order 


03  Sign-Off                            63  Haster  Screen 

Current  User: 

Select  one  number  CO-63  — ->  ■ 

Figure  4.1.1 


Uard  Room  Bed 


Patient 


Reg  # 


Dots 


Time 


»••  DOCTOR'S  ORDER  HENU 


13  Activity 

B3 

1 
Pharmacy 

23  Diet 

73 

Radiology 

33  lU's  /  Blood 

a3 

Respiratory  Therapy 

4  3  Laboratory  Tests 

93 

Uital  Signs 

53  Monitoring 

103 

Ward  Routines 

003  Sign-Off 


113  Doctor's  naster  Screen 


12  3  naster  Screen 


Current  User: 


Select  one  number  COO-123  — >  ■■ 


Picture  4.1.1.1 
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UJard  Room  Bed 


Patient 


Reg  W 


Date 


Time 


•••  SELECT  ACTIUITY  LEUEL  ••• 


1]  f^mbulate  ad  lib 

2]  Ambulate  at/   Assistance 

33  Strict  Bedrest 

4  3  Bedrest  w/  BRP 

53  Bedside  Commode 

B3  DOB  to  Strecher  ui/  Assist 


73  Dangle  Legs 

83  Keep  on  Back 

93  nay  Shower 

103  Turn  Patient 

113  Turning  Frame 

123  Up  in  Chair  u/  Assist 


03  Sign-Off 


133  Doctor's  Order  Screen 


143  Master  Screen 


Current  User: 


Select  one  number  COO-143  ---> 


Figure  4.1.1.1a 


UJard  Room  Bed 


Patient 


Reg  n 


Date 


Time 


•••  SELECT  TinE/FREQUENCY  OPTION  ••• 


13  PRN 

23  Q  1-2  Hr  PRN 
33  Q  2-3  Hr  PRN 
43  Q  3-4  Hr  PRN 

53  On  Call 

6  3  00 

73  HS 

83  X  1 

93  Today  (3 


•  Daily  0 

10  3  0200 

113  0400 

12  3  0600 

133  0800 

143  1000 

153  1200 

153  1400 

173  1600 

183  1800 

19  3  2000 


20  3 

2200 

30  3 

0  Shift 

213 

2400 

313 
32  3 

010 
0  6  Hr 

223 

BIO 

333 

X  4 

233 

0  12 

Hr 

34  3 

Q  4  Hr 

24  3 

X  2 

353 

X  5 

25  3 

TID 

253 

AC 

36  3 

0  2  Hr 

273 

PC 

37  3 

X  12 

28  3 

0  a  Hr 

383 

Q  1  Hr 

293 

X  3 

393 

X  24 

403  Help 


413  Return  to  Calling  Screen 


Current  User: 


Select  one  number  COl-413  — >  •■ 


Fig;ure  4.1.1.1b 
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HELP  SCREEN  FOR  THE  TlhE  HODULE 


Hospital  policy  dictatss  the  exact  time  For  standardized  abbreviations, 


1-4]  PRN 

5-21 D  Single  dosages 
QD  —  0900 
HS  ~  2200 

52-243  Twice  a  day  frequency 
BID  —  0900  &  2100 
Q  12  Hr  —  1200  &   2400 

25-303  Three  times  a  day  frequency 
TID  —  0900,  1400,  2100 
AC  —  0700,  1100,  1700 
PC  ~  0900,  1300,  1900 
0  a  Hr  —  0600,  1400,  2200 
Q  Shift  —  0900,  1700,  0200 


31-333  Four  times  a  day  frequency 

QID  —  0900,  1300,  1700,  210C 
Q  5  Hr  —  0600,  1200,  IBOO, 
2400 

34-353  Six  times  a  day  frequency 

Q  4  Hr  —  0200,  0600,  1000, 
1400,  1300,  2200 

36-373  Twelve  times  a  day  frequency 
Q  2  Hr  —  Even  hours 

38-393  24  times  a  day  frequency 
Q  1  Hr  —  On  the  hour 

413  No  frequency  will  be  assigned 


Fi2;ure  4.1.1.1c 


UJard  Room  Bed 


Patient 


Reg  ^ 


Date 


Time 


•••  SELECT  DIET  ••• 


13  As  Tolerated 

23  Clear  Liquids 

33  Diabetic 

43  Fat-controlled 

53  Full  Liquids 

6  3  Infant  /  Neonatal  Bottle  xl 

7  3  Infant  /  Neonatal  Bottle  x6 
83  Infant  /  Neonatal  Bottle  xl2 
93  nechanical  Soft 


003  Sign-Off 


103  No  Controlled 

113  NPO 

123  NPO  p  2400 

133  NPO  w/  ice  chips 

143  Regular 

153  Renal  &  Liver  Disease 

163  T  a  A 

173  Tube  Feedings  Ccont  /  bags3 

183  Tube  Feedings  Cbolus3 


193  Doctor's  Order  Screen 


203  Hester  Screen 


Current  User: 


Select  one  number  COO-203  — > 


Fi2;ure  4. 1.1.  Id 
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Uard  Room  Bed 


Patient 


Reg  » 


Dote 


Time 


•••  SELECT  lU  ORDER  •*• 


lU  ORDERS 


13  Start  lU  of 

23  Alternate  lU  with 

33  Follow  Present  lU  w/ 

43  Interrupt  lU  for 

53  Start  Second  lU  of 

63  Discontinue  lU 

73  Insert  Heparin  Lock 

83  Use  tlultilumen  Line 


.45  NaCl 

Ringer's  Lactate 
D5  Ringer's  Lactate 
D5  Uater 
Normal  Saline 
05  Normal  Saline 

UJhole  Blood 
Packed  Cells 


Over  30  nin 


003  Sign-Off 


093  Doctor's  Order  Screen 


Over 

1  Hr 

Over 

2  Hr 

Over 

4  Hr 

Over 

6  Hr 

Over 

8  Hr 

Over 

12  Hr 

Over 

24  Hr 

103  Master  Screen 


Current  User: 


Select  one  number  COO-103  — >  •• 


Fig;ure  '^.  1 . 1 .  le 


Uiard  Room  Bed 


Patient 


Reg  » 


Date 


Time 


•••  SELECT  lU  SOLUTION  ••• 


SOLUTION 


Start  lU  of 
Alternate  lU  with  _ 
Follow  Present  lU  c 
Interrupt  lU  for 
Start  Second  lU  of 

Discontinue  lU 
Insert  Heparin  Lock 
Use  Multilumen  Line 


13  D5  .45  NaCl 

23  Ringer's  Lactate 

33  D5  Ringer's  Lactate 

43  05  UJater 

53  Normal  Saline 

53  D5  Normal  Saline 

73  UJhole  Blood 

83  Packed  Cells 


Over  30  flin 


Over 

1  Hr 

Over 

2  Hr 

Over 

4  Hr 

Over 

5  Hr 

Over 

a  Hr 

Over 

12  Hr 

Over 

24  Hr 

Current  User: 


Select  one  number  Cl-a3  ---->  ■ 


Figure  ^.1.1. If 
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Ward  Room  Bed      Patient 


Rag  # 


Data 


Time 


•••  SELECT  INFUSION  RATE  ••• 


INFUSION  RATE 


Start  lU  of 
Altarnata  lU  luith 
Failou  Present  lU  ui/ 
Interrupt  lU  for 
Start  Second  lU  of 

Discontinue  lU 
Insert  Heparin  Lock 
Use  nultilumen  Line 


.45  NaCl 

Ringer's  Lactate 
D5  Ringer's  Lactate 
05  Ulater 
Normal  Saline 
05  Normal  Saline 

Whole  Blood 
Packed  Cells 


1] 

Over 

30  Hi 

2] 

Over 

1  Hr 

33 

Over 

2  Hr 

4] 

Over 

4  Hr 

53 

Over 

6  Hr 

B3 

Over 

a  Hr 

73 

Over 

12  Hr 

B3 

Over 

24  Hr 

Current  User: 


Select  one  number  Cl-a3  — ->  ■ 


Figure  4.1.1.1,o; 


Ward  Room  Bed 


Patient 


Reg  t* 


Data 


Time 


•••  SELECT  LABORATORY  TEST  ••« 


•  CHEniSTRY  • 

13  Bilirubin 

23  BUN 

33  Calcium 

43  Clorida 

5  3  C02 

63  Creatinine 

73  Glucose 

83  Phosphate 

S3  Potassium 

103  Sodium 

113  Uric  Acid 

003  Sign-Off 


•  ENZYHES  • 
123  Amylase 
133  CPK 

143  LDH 

153  SCOT 

163  SGPT 

•  HEnATOLOGY 
173  CBC 

183  Platlats 

133  Protime 

20  3  Sad  Rate 


32  3  Doctor's  Order  Screen 


•  OTHER  • 

213  ABO  &  Rh 

223  ABG  Cfrom  A-linB3 

233  ABG  C3tick3 

243  Blood  Culture 

253  Culture  &   Sensitivity 

263  Cold  Agglutms 

27  3  HCG 

283  Dec  Blood  in  Stools 

233  RPR 

303  SnA  6 

313  UA 

333    Piaster    Screen 


Current  User: 


Select  one  number  COO-333  ---> 


Fisrure  4.1.1.1h 
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Uard  Room  Bed 


Patient 


Reg  # 


Data 


Time 


»•  SELECT  nONITIORING  REQUIREHENTS 


13  (=*pneQ  rionitor 
23  A-line  Set-up 

33  A-line  Readings 

43  Cardiac  rionitor 

53  Cardiac  Output 

63  Circulation  Checks 

73  CUP  Readings 
Cnanually 3 

83  Fundus  Checks 

93  Intake  &  Output 


003  Sign-Off 


133  Doctor's  Order  Screen 


103  ICP  Cnanitor3  Set-up 

113  Manual  ICP  Readings 

123  nonitor  ICP  Readings 

13  3  Neuro  Checks 

1H3  Pressure  rionitor 

153  PAP/PA  UJedge  Readings 

163  Suian-Ganz  Set-up 

173  Temperature  rionitor 

163  Transcutaneous 
Monitoring 

20  3  Master  Screen 


Current  User ; 


Select  one  number  C00-1S3  — > 


Figure  4.1.1.1i 


Ulard  Room  Bed 


Patient 


Reg  # 


□ate 


Time 


SELECT  DESIRED  MEDICATION  /  DOSAGE 


ANTIHISTAMINE  •• 

Benadryl 

13   25  mg  C03 

23   50  mg  CIM3 

33   50  mg  CIU3 

Dimetapp 

H3   4  mg  C03 

53   5  mg  Elxr  C03 

Phenergan 

63   25  mg  C03 

73   25  mg  CIM3 

63   25  mg  CSP3 


••  ANTI-INFECTIUE  •• 


Ampicillin 

33   250  mg  C03 
103   500  mg  CIM3 
113   500  mg  CIU3 
Ancef 

123  .5  Gm  CIM3 
133  .5  Gm  CIU3 
Cefadyl 

143  500  mg  Cin3 
153  1.0  Gm  CIM3 
163   1.0  Gm  CIU3 


Erythromycin 

173   250  mg  C03 

163   200  mg  Susp 

Keflex 

133   250  mg  C03 

203   125  mg  Susp 

Sulf acetamine  Na 

213   10^  Salt  C0p3 

Tetracycline 

223   250  mg  C03 

233   500  mg  CIU3 


ca3 


C03 


24  3  Help   25  3  Next  Screen  [More  Meds3    26  3  Dr"s  Ord  Screen    27  3  Master  Scree 


Current  User: 


Select  one  number  COl-273  — > 


Figure  ^.l.l.lj 
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UJard   Room   Bed 


Patient 


Rag  # 


Dots 


Time 


•••  SELECT  DESIRED  nEDICATION  /  DOSAGE  ••• 


ANTISEPTIC  •• 
Boric  Acid 

1]  s\   soit  cn 

AUTDNOniC  •• 

Atropine 

2D    0.4  mg  COD 

3D    O.H  mg  CiriD 

Ualium 

4D    5  mg  COD 

5D    5  mg  CIHD 

6D    5  Gm  CIUD 


CARDIOUASCULAR  ' 
Digoxin 
7D  .125  mg  COD 
BD  .250  mg  COD 
IndBral 

SD  10  mg  COD 
lOD  40  mg  COD 
IID  1  mg  CIUD 
Hinlprsas 
12D  1  mg  COD 
13D  2  mg  COD 
14D   5  mg  COD 


CNS  DRUGS  •• 

Dilantin 

15D   100  mg  COD 

16D   125  mg  Susp 

Elavil 

17D   10  mg  COD 

IBD   25  mg  COD 

19D   50  mg  COD 

Phenobarbital 

20D       15   mg    COD 

21D       30    mg    COD 

22D      BO   mg    CIHD 


COD 


23  D 

Help 

24D  Previous  Screen 

Currant  User: 

Select  one  number  C01-24D  ---> 

Fis-ure    4.1.1.1k 


HELP  SCREEN  FOR  PHARMACY  nODULES 

This  Help  Focility  explains  abbreviations  used  in  parenthesis.   IF 
the  user  requires  additional  information  on  medications  or  dosages,  they 
should  consult  the  PHYSICIAN'S  DESK  REFERENCE  CPDRD  or  contact  a  Pharmacy 
Officer.   The  abbreviations  indicate  the  route  of  administration: 


COD  Oral 

CIUD  Intramuscular 

CIUD  Intravenous 

CSpD  Suppository 


CID   Irrigation 
COpD  Qpthalmic 
C5QD  Subcutaneous 


Figure  4.1.1.11 
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Uard  Room  Bed 


Patient 


Reg  » 


Date 


Time 


SELECT  X-RAY 


1]  Abdomen  Flat  Plata 

2]  Abdottien   AP 

3]  Abdomen   3-ujay 

1]  Angiography 

53  Arteriography 

6]  Barium  Enema 

7]  Brain  Scan 

8]  Cheat  PA 

9D  Cheat  Lateral 


10] 

CT  Scan 

113 

Gallbladder  Series 

IE] 

lUP 

13] 

Sinus  Series 

14] 

Skull 

15] 

Spine 

163 

Tomograpy 

17] 

Upper  GI  Series 

183 

Ultrasound 

00]  Sign-Off 


19]  Doctor's  Order  Screen 


20]  Master  Screen 


Current  User: 


Select  one  number  C 00-50]  ---> 


FiD;ure  4. 1 . 1 .  Im 


Uard  Room  Bed 


Patient 


Reg  # 


Date 


Time 


•••  SELECT  RESPIRATORY  THERAPY  OPTIONS 


THEN  FLOW  RATE  FOR  ROUTE 


••  RESPIRATORY  THERAPY  •• 


13  Chest  Pulmonary 

Therapy 
2]  Cough  &  Deep  Breath 
3]  Incentive 

Spirometer 
4]  IPPB 
53  Suctioning 
6  3  Tracheostomy  Care 
73  Uentilator 


003  Sign-Off 


83  Uean  from 

Uentilator 

•  Route  • 
93  Croup  Tent 
103  nask 
113  nist  Tent 
123  Nasal  Prongs 
133  Oxyhood 


143  Doctor's  Order  Screen 


•  Flow  Rate  • 
A3  1-2  liters/min 
B3  3-4  liters/min 
C3  5-5  liters/min 
D3  7-a  liters/min 
E3  9-10  liters/min 
153  naster  Screen 


Current  User: 


Select  one  number  COO-153  --->  ■■ 
Select  one  letter  CA-E3  ----->  ■ 


FisTure    ''+.  1 .  1 .  In 


375 


Ward  Roam  Bad 


Patient 


Reg  n 


Data 


Time 


SELECT  UITAL  SIGN  OPTION 


•  ROUTINE  • 
13  T-P-R,  B/P 
23  Past-op 
3]  Post  Pactum 
43  Post  Newborn 


003  Sign-Off 


12  3  Doctor's  Order  Screen 


•  SPECIAL  • 

53  FHT 

53  Pulse  Apical 
73  Pulse  Femoral 
83  Pulse  Pedal 
93  Temp  Axillary 
103  Temp  Rectal 
113  Tilt  Test 


133  Master  Screen 


Cu.-rent  User: 


Select   one   number    COO-133    ---> 


FiH;ure   4.1.1.1o 


Uard   Room   Bed 


Patient 


Reg    # 


Date  Time 


SELECT    liJARD    ROUTINE 


1 3  Ace  Wrap  Lower  Ext 

23  Chest  Tube  Insertion 

33  Circumcision  Care 

4  3  Complex  Drsg  Change 

53  EKG  Rhythm  Strip 

63  Foley  Cath  Care 

73  Foley  Cath  Insertion 

83  Guiac  Stools 

33  Isolation  Respiratory 
103      "     Reverse 
113      "     Strict 


123  Lumbar  Puncture 
133  N-G  Insertion 
143  Parencentesis 
15  3  Phototherapy 
163  Range  of  notion 

Exercises  CPassivB3 

•  Restraints 
173  2-Point 
183  4-Polnt 
IS 3  Posey 


003  Sign-Off 


30  3  Doctor's  Order  Screen 


203  Simple  Drsg  Change 

213  Spec  Gravity 

223  Spin  HCT 

233  Straight  Cath 

243  Surgical 

Shave  Prep 

SS  Enema 

Tap  Water  Enema 

Thoracentesis 

Tube  Care  Cnot  trach3 

Urine  for  5  &  A 


253 
263 
273 
283 
2S3 


313  tlaster  Screen 


Currant  User: 


Select  one  number  COO-313  ---> 


Figure  4.1.1.1p 
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UJard  Room  Bed      Patient 


Reg  «♦ 


Date      Time 


•••  ADniT  ••  TRANSFER  ••  DISCHARGE  ••• 


ID   Admit 
2]   Transfer 
33   Discharge 


0]  Sign-Off 


4]  Doctor's  Order  Screen 


5  3    Plaster    Screen 


Current  User: 


Select  one  number  CO-5]  ----> 


Figure  4.1.1.2 


Patient  Orders  For:  nary  niser 

Press  —  Ctrl  and  S  —  Keys  to  Pause  The  Scrolling  If  Necessary 
Page  No .      1 
01/12/86 


Data 


01/11/BB 
01/11/B6 
01/11/BB 
Q1/12/B6 
01/12/86 
01/12/86 
01/12/86 
01/12/86 
01/12/86 
01/12/86 
01/12/86 


Time 


Order 


14:13:47  Up  in  Chair  in/  Assist 

14:14:23  Diabetic  Diet 

14:15:41  Start  lU  of  .45  NaCl 

10: 17: 14  Cloride 

10: 17:40  Sodium 

10: 18: 00  Amylase 

10:18:26  Potassium 

10: 18:56  C02 

10: 19:26  CBC 

10: 19:54  Platlets 

10: 20: IB   Glucose 


Frequency 

Practitionf 

TID 

N. 

Lyon 

no 

N. 

Lyon 

no 

Infuse  o  8Hr 

N. 

Lyon 

no 

Daily  e  0600 

N. 

Lyon 

no 

N. 

Lyon 

no 

N. 

Lyon 

no 

Daily  0  0600 

N. 

Lyon 

no 

Daily  0  0600 

N. 

Lyon 

no 

Daily  a  0600 

N. 

Lyon 

no 

Doily  0  0600 

N. 

Lyon 

no 

Daily  0  0600 

N. 

Lyon 

no 

Figure   4.1.1.3 
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Ward  Roam  Bad      Patient 


Reg  # 


Date     Time 


•••  DISCONTINUE  AN  ORDER 


Date 


Start    Order 


Frequency     Practitioner 


0]  Sign-Off   13  Next  Order   23  Discontinue  Order   3]  Dr " s  Scrn  HZ    naster  Scrn 


Current  User: 


Select  one  number  CO-4]  — ->   ■ 


Figure  4.1.1.4 
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Ward  Room  Bed      Patient 


Reg  # 


Data     Time 


•••  NURSING  nftSTER  SCREEN  •"• 


1]  Enter/ InoctivQte  Nursing  Care  Plan    53  Review  Patient  Care  Requirementa 


23  Review  Nursing  Care  Plan 


33  Print  Nursing  Care  Plan 


43  External  Patient  Classification 


63  Print  Patient  Care  Requirements 


73  Internal  Patient  Classification 


03  Sign-Off                           B3  Haster  Screen 

Current  User: 

Select  one  number  CO-83  — ->  ■ 

Figure  5. 1 • 1 


UJard  Room  Bed      Patient 


Rag  # 


Date     Time 


•••  SELECT  THE  DESIRED  NURSING  CARE  PLAN  FUNCTION  ••• 


13  Enter  a  New  Care  Plan 


S3  Inactivate  Portions  of  Care  Plans 


03  Sign-Off       33  Nurse's  Haster  Screen 


4  3  riastar  Screen 


Current  User: 


Select  one  number  CO-43  ---->  ■ 


Figure  5.1.1.1 
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UJard  Roam  Bed 


Patient 


Reg  # 


Data      Time 


SELECT  NURSING  DIAGNOSIS  •• 


03  Sign-Off 


13   Comfort,  Alteration  In:  Pain 


23   Communication,  Impaired:  Uarbal 


33   Impaired  Physical  nobility 


43   Self-Care  Deficit 


5)  Nurse's  Master  Screen 


63  Master  Screen 


Current  User: 


Select  one  number  CO-63  -— >  • 


Figure    5 • 1 • 1 • la 


Ward   Room   Bed 


Patient 


Reg   # 


Data 


Time 


••   SELECT  NURSING  ASSESSMENTS  FOR  A  PATIENT  WITH    •• 
••  NURSING  DIAGNOSIS  OF  COMFORT  ALTERATION  IN:  PAIN  •* 


13  Altered  Time 

Perception 

23  Alteration  Muscle  Tone 

33  Autonomic  Response 

43  Distraction  Behavior 

53  Facial  Mask 


73  Guarding  Behavior 

83  Impaired  Thought 
Process 

33  Narrowing  Focus 

103  Pacing 

113  Patient  Report 


6  3  Other  Assessment :  C 3 


123  Self-Focusing 

133  Talkative 

143  Uerbal  Complaint 

153  Uocal  Complaints 
CMoans,  Crying3 

163    Ulithdrauial    From 

Social  Contact 


Currant  User: 


Select  one  number  COl-153  ---> 


Figure  5.1'l«lt) 
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Ward  Room  Bad 


Patient 


Reg  n 


Date 


Time 


••     SELECT  A  RELATED  FACTOR  FOR  A  PATIENT  WITH 

'•  NURSING  DIAGNOSIS  OF  COHFORT  ALTERATION  IN:  PAIN 


13   Altered  Sensation 


BD   Disease  /  Condition 


33   Emotional  State 


43   Other:  C 3 


53   Surgical  Procedure 


63   Trauma 


73   Treatment  Regime 


Current  User; 


Select  one  number  Cl-73  — -> 


Figure  5.1.1.1c 


UJard  Room  Bad 


Patient 


Reg  # 


Dote 


Time 


••      SELECT  A  PATIENT  GOAL  FOR  A  PATIENT  WITH 

••  NURSING  DIAGNOSIS  OF  COHFORT  ALTERATION  IN:  PAIN 


13  Communicates  Pain  Free 

23  Communicates  Experiences  Less  Pain 

33  Communicates  Experience  of  Pain  More  Tolerable 

43  Demos  Skills  &  Knowledge  to  Achieve  Pt  Goals 

53  Other  Goals:  C 


Current  User: 


Select  one  number  Cl-53  -— > 


Figure  5. 1 . 1 • Id 
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Ward  Room  BBd 


Patisnt 


Reg  # 


Data 


Time 


»•  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 

••  COnnUNICATES:  PAIN  FREE,  EXPERIENCES  LESS/TOLERABLE  PAIN  OR  OTHER  GOAL 


13  Assess  Pain  Factors 

2]  Assess  a  EvQluota  Poin 

3]  Encour  Pt  to  Use  Coping  Strategy 

4J  Give  Info  &  Explain  Proc  &   Tests 

5]   Other  Nursing  Orders: 

C D 


BD  Offer  PRN  Hedications 

72  Provide  Emotional  Support 

a]  Schedule  "Quiet  Times" 

9]  Teach  Alt  Coping  Strategies 

10]  Utilize  Diversional  Activities 


Current  User: 


Select  one  number  COl-lOD  — > 


Figure  5.1.1.1e 


Ward  Room  Bed 


Patient 


Reg  # 


Data 


Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
••   DEnONSTRATES  SKILLS  S  KNOWLEDGE  TO  ACHI^-iE  GOALS   •• 


Teach  Stress  Reduction  Techniques 
ID   Deep  Breathing 
2]   Progressive  Relaxation 
3]   Relaxation  Response 
43   Diversional  Activity 
53   Other :  C 


Current  User: 


Select  one  number  Cl-53  ----> 


Figure  5. 1.1. If 
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UJard  Room  Bed 


Patient 


Reg  # 


Date 


Time 


•••  SELECT  TinE/FREQUENCY  OPTION 


13  PRN 

2]  Q  1-2  Hr  PRN 

3]  0  2-3  Hr  PRN 

4]  Q  3-4  Hr  PRN 

5]  On  Call 

6]  QD 

73  HS 

83  X  1 

8  3  Today  0 


403  Help 


•  Daily  0 

103  0200 

113  0400 

12  3  0600 

133  0800 

143  1000 

153  1200 

163  1400 

173  1600 

1B3  1800 

193  2000 


203 

2200 

303 

Q 

Shift 

213 

2400 

313 

QID 

32  3 

Q 

6  Hr 

22  3 

BID 

33  3 

X 

4 

23  3 

Q  12  Hr 

34  3 

Q 

4  Hr 

24  3 

X  2 

35  3 

X 

6 

25  3 

TID 

263 

AC 

36  3 

□ 

2  Hr 

27  3 

PC 

37  3 

X 

12 

283 

Q  8  Hr 

383 

Q 

1  Hr 

29  3 

X  3 

383 

X 

24 

413  Return  to  Calling  Screen 


Current  User: 


Select  one  number  COl-413  --->  ■■ 


Figure  5.1.1.1g 


HELP  SCREEN  FDR  THE  TIME  nODULE 


Hospital  policy  dictates  the 

exact 

time 

for 

standardized  abbreviations. 

1-43  PRN 

31- 

■333 

Four  times  a  day  frequency 

QID  ~  0800,  1300,  1700,  210C 

5-213 

Single  dosages 
QD  —  0900 
HS  ~  2200 

Q  5  Hr  —  0600,  1200,  1800, 
2400 

34- 

-353 

Six  times  a  day  frequency 

22-243 

Tuiice  a  day  frequency 
BID  —  0800  S  2100 
Q  12  Hr  ~  1200  &  2400 

Q  4  Hr  —  0200,  0600,  1000, 
1400,  1800,  2200 

36- 

■37  3 

Twelve  times  a  day  frequency 

25-303 

Three  times  a  day  frequer 
TID  —  0900,  1400,  2100 

icy 

Q  2  Hr  —  Even  hours 

AC  —  0700,  1100,  1700 

38- 

■393 

24  times  a  day  frequency 

PC  ~  0800,  1300,  1900 

Q  1  Hr  —  On  the  hour 

Q  8  Hr  —  0600,  1400,  2200 

Q  Shift  —  0900,  1700,  0200 

413 

No 

frequency  uiill  be  assigned 

Figure  5.1„l.lh 
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You  have  identified  teaching  as  a  nursing  intervention.   Please 
specify  the  type  of  teaching  that  will  be  required.   Remember  to 
document  the  teaching  you  give  to  your  patient. 


A]  Group  Teaching  D]   Structured  Teaching 

Cie.  diabetic,  cardiac, 

B]  Preoperative  Teaching  colostomy  care,  post 

pactum  first  S4  hr ,  newborn 
CD   Return  to  Previous  Screen  care,  or  discharge] 


Select  one  letter  CA-DD  — ->  ■ 


Figure  5  •  1 • 1 • li 


You  have  identified  emotional  support  as  a  nursing  intervention. 
Emotional  support  is  expected  for  each  patient,  but  augmented  staffing 
may  be  required  for  the  following: 

•  Answer  A-C  only  if  emotional  support  is  in  excess  of  30  min  q21h  • 

A]  Patient/family  support  Cie.  anxiety,  denial,  loneliness,  etc.] 

B]  Plodification  of  lifestyle  Cie.  new  prosthesis,  body  image, 

behavior  modification,  etc.] 

C]  Sensory  deprivation  Cie.  retarded,  deaf,  blind,  language  barrier, 

bilateral  eye  patches,  confused,  combative] 

D]  Return  to  previous  screen 

Select  one  letter  CA-DD  —->  ■ 


Figure  5 • 1 • 1 • 1 j 
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Uard  Roam  Bed 


Patient 


Reg  » 


DatE 


Time 


SELECT  NURSING  ASSESSHENTS  FOR  A  PATIENT  WITH      •« 
NURSING  DIAGNOSIS  OF  COnnUNICATION ,  inPAIRED:  UERBAL  •• 


1]  Anxiety 

2]  Disorientation 

3]  Fear 

4]  Frustration 

5D  Other  Assessment:  C 


6]  Inability  to  Hear 

73  Inability  to  Speak 

a]  Incomprehensible  Speech 

3]  Refusal  to  Speok 

: 


103  Slurring 

113  Stuttering 

123  Tearfulness 

133  Thought  Disorder 


Current  User: 


Select  one  number  COl-133  ---> 


Figure  5. 1.1° Ik 


Ulard  Room  Bed 


Patient 


Reg  tt 


Date 


Time 


••       SELECT  A  RELATED  FACTOR  FOR  A  PATIENT  UJITH       •• 
••  NURSING  DIAGNOSIS  OF  COnnUNICATION ,  inPAIRED:  UERBAL  •• 


13  Anatomical  Impairment 

23  Cultural  Difference 

33  Developmental  Age 

43  Disease  Process 

53  Other:  C 


63   Foreign  Language 
73   nental  Capacity 
B3   Sedation 
33   Surgical  Procedure 

103  Treatment  Regime 


Current  User; 


Select  one  number  COl-103  ---> 


Figure  5.1„loll 
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Ulard    Room    Bad 


Patient 


Reg  # 


Date 


Time 


••        SELECT  ft  PATIENT  GOAL  FOR  A  PATIENT  UJITH        •• 
••  NURSING  aiAGNDSIS  OF  COnnUNICATION ,  inPAIRED:  UERBAL  •• 


13   Communicatoa  Needs  Thru  Words 


23   Comm  Needs  Thru  nechanical  Tools 


33   Demo  Skills  to  Achieve  Goals 


5]   Reports  Lass  Anxiety 


SD   Reports  Less  Fear 


7]   Reports  Lass  Stress 


4D   Other  Goals:  C 


Current  User: 


Select  one  number  Cl-7]  -— > 


Figure  5  •  1  ^  1  •  l^i 


Uard  Room  Bed 


Patient 


Reg  * 


Dote 


Time 


«•       SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 

••  COnnUNICATES  NEEDS  THROUGH  USE  OF  WORDS  OR  HECHANICAL  TOOLS 


ID  Apprise  Others  of  Communication  Prob 

2]  Provide  Emotionol  Support 

3D  Provide  Paper  &  Pencil 

4D  Provide  Spelling  Board 

5D   Other  Nursing  Order: 

C 2 


6D  Provd  Translated  Phase  Chart 

7D  Provide  Translator 

8D  Simple  Ques  ui/  Y/N  Ans 

9D  Use  Sign  Language 

lOD  Use  Establish  Comm  for  ADL 


Currant  User: 


Select  one  number  COl-lOD  ---> 


Figure  5. 1.1. In 
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UJard  Room  Bed 


Patient 


Reg  # 


Date 


Time 


••    SELECT  A  NURSING  ORDER  FOR  A  PATIENT  UIHOSE  GOAL  IS   •• 
••   REPORTS  DECREASED  LEUEL  OF  STRESS,  ANXIETY,  OR  FEAR   •• 


13  Encourage  Patient  to  Speak  Slouily 

23  Encour  To  Util  Coping  Strategy 

33  Explain  Proc  and  Elicit  Question 

43  Provide  Spelling  Board 

5  3   Other  Nursing  Orders: 

C 3 


63  Provide  Translated  Phase  Chart 

73  Provide  Translator 

83  Simple  Questions  lu/  Y/N  Answers 

S3  Use  Sign  Language 

103  Use  Estoblish  Comm  for  ADL 


Current  User: 


Select  one  number  COl-103  — > 


Figure  5.I.I.I0 


Ulard  Room  Bed 


Patient 


Reg  4» 


Date 


Time 


••    SELECT  A  NURSING  ORDER  FDR  A  PATIENT  WHOSE  GOAL  IS 
••  DEnONSTRATES  SKILLS  TO  ACHIEUE  GOALS 


•  Teach  Method  Preop  for  Postop  Use 
13   Blink  Ix  For  No,  2x  For  Yes 
E3   Squeeze  Hand  For  Y/N  Response 
33   Teach  Proper  Use  of  flech  Device 
43   Apprise  Others  of  Comm  Problem 
53   Other  Nursing  Orders:  C ■ 


♦  Teach  Stress  Reduction  Techniques 
63   Deep  Breathing 
73   Diversional  Activities 
83   Progressive  Relaxation 
93   Relaxation  Response 

3 


Current  User: 


Select  one  number  Cl-93  -— > 


Figure  5.1.1.1p 
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Ward.   Room  Bed 


Patient 


Reg  # 


Date 


Time 


SELECT  NURSING  ASSESSHENTS  FOR  ft  PATIENT  UJITH 
NURSING  DIAGNOSIS  OF  inPAIRED  PHYSICAL  nOBILITY 


ID  Confinement  Imposed 

23  FatiquBS  Easily 

3]  Gait  Impairment 

43  Impaired  Coordination 

53  Inability  to  Ambulate 

5  3  Other:  C 


73  Inability  to  Transfer 

83  Inability  to  Turn 

S3  Limited  Range  of  Motion  CROnD 

103  Reluctant  to  Hove 

113  Use  of  Assistive  Devices 


Current  User: 


Select  one  number  COl-113  -~> 


Figure  5.1.1.1q 


Uiard    Room   Bed 


Patient 


Reg  # 


Date 


Time 


SELECT  A  RELATED  FACTOR  FOR  A  PATIENT  UJITH 
NURSING  DIAGNOSIS  OF  IMPAIRED  PHYSICAL  MOBILITY 


13  Decreased  Activity  Tolerance 

23  Musculoskeletal  Function 

33  Neuromuscular  Function 

43  Pain  /  Discomfort 

53  Treatment  Regime 

5  3  Other:  C 


Current  User: 


Select  one  number  Cl-63  ----> 


Figure  5.1.1.1r 
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Ward  Room  Bad 


Patient 


Reg  » 


Date 


Time 


••      SELECT  A  PATIENT  GOAL  FOR  A  PATIENT  UITH     •* 
••  NURSING  DIAGNOSIS  OF  inPAIRED  PHYSICAL  nOBILITY  •* 


13  Able  to  Transfer  Independently 

2]  Able  to  Transfer  ui/  Assietance 

3D  Demos  Skills  to  Achieve  Goals 

43  Increase  Range  of  Motion  CR0n3 

53  naint  Effective  Breathing  Pattern 

63  Other  Goals:  C 


73   naintains  Full  ROn 

83   Maintain  Pottern  of  Elimination 

93   Maintain  Skin  Integrity 

103   No  Additional  Contractures 

113   Performs  ADL 

3 


Current  User: 


Select  one  number  CQl-113  — > 


Figure  5  .LI -Is 


OJard  Room  Bed 


Patient 


Reg  # 


Date 


Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  UHOSE  GOAL  IS  •• 
••  MAINTAINS  FULL  ROM,  INCREASES  ROM,  NO  ADDED  CONTRACTURES  •• 
••  OR  MAINTAINS  EFFECTIUE  BREATHING  PATTERN  •• 


13  Active  Range  Of  Motion  CR0M3 

23  Cough  &  Deep  Breath 

33  Encourage  Independent  ADL 

H3  Grodual  Increase  ADL  Activity 

53  Other  Nursing  Orders: 

C 


63  Passive  Range  Of  Motion  CR0M3 

73  Positioning 

83  Turning 

33  Accom  Pt  Off  Ulard  015  <30min3 

103  Accom  Pt  Off  Ward  C>  30  min3 


Current  User: 


Select  one  number  COl-103  ---> 


Figure  5. 1.1. It 
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UJard   Room    BBd 


Patient 


Rag  # 


Data 


Time 


SELECT  A  NURSINB  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS   •• 
MAINTAINS  SKIN  INTEGRITY  OR  OTHER  •• 


1]  Ambulate 

S]  As3i3t  to  Select  Diet 

3D  Encourage  Independent  AOL 

4]  naasaga  to  Promote  Circulation 

53  Personal  Poseeeaiona  uj/in  Reach 

63  Other  Nursing  Orders:  C 


7]   Position 

83   Protect  Boney  Prominences 

S3   Protect  Pressure  Areas 

10  3   Provide  Safe  Environment 

113   Siderails 
3 


Current  User: 


Select  one  number  COl-113  ---> 


Figure  5 • 1 • 1 • lu 


Uiard    Room   Bed 


Patient 


Rag  # 


Data 


Time 


SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS   •• 

MAINTAINS  PATTERN  OF  ELIMINATION  OR  PERFORMS  ADL    •' 

AFTER  SOME  SELECTIONS  YOU  WILL  BE  ASKED  FOR  FREQUENCY  •« 


13  Ambulate  luith  Assistance 

23  Increase  Indapandenca  Doing  ADL 

33  Plan  for  Continuing  Care 

43  Position 

53  Other  Nursing  Orders:  C 


63   Range  Of  Motion  CR0M3  i 

73   Select  Diet  to  Promota  GI  Functior 
63   Turn 


Current  User: 


Select  one  number  Cl-a3  ----> 


Figure  5  •  1 • 1 • Iv 
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UJard   Rdoit)   Bed  Patient 


Rag  # 


Date     Time 


'•    SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS   •• 
'•    ABLE  TO  TRANSFER  INDEPENDENTLY  OR  WITH  ASSISTANCE    •• 


13   A33i3t:  Bed  to  Chair 


S3   Assist:  Bed  to  Uheelchair 


4D   Provide  Helping  Person 


53   Provide  riechanical  Aid 


3  3   Other  Nursing  Orders:  C 


Current  User: 


Select  one  number  Cl-53  ----> 


Figure  5^ 1 • 1 • Iw 


Ward  Room  Bed      Patient 


Reg  n 


Date     Time 


••    SELECT  A  NURSING  ORDER  FOR  A  PATIENT  UIHQSE  GOAL  IS   •• 
••  DEnOS  SKILLS  TO  ACHIEUE  GOALS  •• 


13   Provide  Opport  To  Practice  Skills   53   Teach  Required  Exercise 


S3   Teach  Factors  for  Impoired  noblty 


33   Teach  Rationale  for  Skills 


63   Teach  Use  of  Adjuncts/Aids 


43   Other  Nursing  Orders:  C 


Current  User: 


Select  one  number  Cl-BD  ----> 


Figure  5 • 1 • 1 • Ix 
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UJard    Room    BBd 


Patient 


Reg  n 


Data     Time 


••  SELECT  NURSING  ASSESSHENTS  FDR  A  PATIENT  WITH  •• 
••      NURSING  DIAGNOSIS  DF  SELF-CARE  DEFICIT     •• 


1]  Unable  to  Cloth  Self 

2D  Unable  to  Cut  Food 

3D  Unable  to  Drink 

4D  Unable  to  Fasten  Cloth 

53  Unable  to  Feed  Self 

63  Other  Assessment:  C D 


73  Unable  to  Get  to  BR 

83    Unable   to   riamt   Appear 

93  Unable  to  Select  Cloth 

103    Unable   to   Sit   on 
Toilet/ComiTiode 


113  Unable  to  do  Toila 
Hygiene 

123  Unable  to  Rise  Off 
Toilet 

133  Unable  to  Flush 
Toilet 

143  Unable  to  Wash  Sal 


Current  User: 


Select  one  number  COl-143  ---> 


Figure  5.1.1.1y 


liJard  Room  Bed 


Patient 


Reg  # 


Date 


Time 


••  SELECT  A  RELATED  FACTOR  FOR  A  PATIENT  WITH 
••   NURSING  DIAGNOSIS  OF  SELF  CARE:  DEFICIT 


13  Activity  Intoleranca 

23  Depression 

3  3  Developmental  Phase 

43  nusculoskalstal  Function 

5  3  Other:  C 


63  Neuromuscular  Impairment 

73  Pain/Discomfort 

63  Perceptual  Impairment 

93  Sensory  Impairment 

103  Severe  Anxiety 


Currant  User; 


Select  one  number  C01-103  ---> 


Figure  5.1.1.1z 
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Ward  Room  Bad 


Patient 


Reg  n 


Data 


Time 


••  SELECT  A  PATIENT  GOAL  FOR  A  PATIENT  WITH  A  •• 
••  NURSING  DIAGNOSIS  OF  SELF-CARE:  DEFICIT  •• 
••  THEN  SELECT  CURRENT  LEUEL  OF  CARE  REQUIRED  •• 


•  Patiant  Goal  • 

ID   Functions  0  Level  0:  Full  Self  Care 

2D   Functions  0  Level  1:  Usa  of  Equip  or  Device 

3D   Functions  0  Level  2:  Needs  Assist/Supervisn 

4D   Functions  0  Level  3:  Needs  Assist  &  Use  Device 

5D   Functions  0  Level  4:  Dependant  &  Does  Not 
Participate 


•  Current  Level  • 
AD   Infant/Toddler  Care 
BD   Self /Minimum  Cara 
CD   Assisted  Cara 
OD   Complete  Cara 
ED   Total  Care 


Currant  User: 


Select  one  number  C1-5D  — -> 
Select  one  letter  CA-ED  — -> 


Figure  5 • 1 • 1 • laa 


tiiard  Room  Bed 


Patient 


Reg  <» 


Date 


Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  UJHOSE  GOAL  IS  •• 
••         FUNCTIONS  AT  LEUEL  0:  FULL  SELF-CARE         •• 


ID   Support  Increasing  Indepandanca  in  ADL 

Cie.  feeding,  bathing,  toileting,  dressing,  grooming,  etc, 


2D   Pads  Racreation/Observation 


3D   Other  Nursing  Orders:  C 


Currant  User: 


Select  one  number  C1-3D  ----> 


Figure  5 • 1 • 1 . lab 
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Uard  Room  Bad 


Patient 


Reg  tt 


Date     Time 


••    SELECT  A  NURSING  ORDER  FOR  fii   PATIENT  WHOSE  GOAL  IS   •• 
••     FUNCTIONS  AT  LEUEL  1:  NEEDS  EQUIPHENT  OR  DEUICE     •• 


1]   Provide  Equip  Far  Bathing 


SD   Provide  Equip  For  Dressing 


33   Provide  Equip  For  Feeding 


43   Other  Nursing  Orders: 

C 


5]   Provide  Equip  For  Toileting 


6D   Peds  Recreation/Observation 


73   Spoon  Feed  Adult  Patient 


83   Spoon  Feed  Child  C<B3 


Current  User: 


Select  one  number  Cl-93  — -> 


Figure  5«l«l'la-c 


Ward  Room  Bed 


Patient 


Reg  # 


Date 


Time 


SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 
FUNCTIONS  AT  LEUEL  2:  NEEDS  ASSISTANCE/SUPERUISION  OR  OTHER 


13  Assist  to  Dress 
23  Assist  To/From  Bathroom 
33  Assist  oj/  Partial  Bath 
43  Assist:  Comb/Brush  Hair 
53  Dress  Patient 


73  Feed  Adult  Patient 

83  Give  Emotional  Support 

33  Give  Complete  Both 

103  Keep  Commode  d  Bedside 

113  Kp  Urinal/Bedpan  Near 


123  Peds  Recreation/Obs 

I 
133  Set  up  Food  Tray    ' 

143  Shave  Patient 

153  Socialize  During  dec 

163  Spoon  Feed  Child 


63  Other  :  C 3 


Current  User: 


Select  one  number  C01-1S3  ---> 


Figure  5. 1.1. lad 
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liiard  Roain  Bed 


Patient 


Reg  # 


Date 


Time 


••   SELECT  ft   NURSING  ORDER  FDR  A  PATIENT  UIHQSE  GOAL  IS    "• 
••  FUNCTIONS  AT  LEUEL  3:  NEEDS  ASSISTANCE  AND  USES  EQUIP  •• 


1]  Assist  to  Dress 
2:  Assist  To/From  Bathroom 
33  Assist  u)/  Partial  Bath 
43  Assist:  Comb/Brush  Hair 
53  Dress  Patient 


73  Feed  Adult  Patient 
83  Give  Emotional  Support 
33  Give  Complete  Bath 
103  Keep  Commode  9  Bedside 
113  Kp  Urinal/Bedpan  Near 


123  Provide  Necesary  Eqr 
133  Provide  For  Hygiene 
143  Set  Up  Food  Tray 
153  Spoon  Feed  Child  C<6 
163  Ped's  Recreation/Qbs 


B3  Other:  C 3 


Current  User: 


Select  one  number  C01-1B3  — > 


Figure  5. 1 • 1 • lae 


Ulard  Room  Bad 


Patient 


Reg  n 


Date 


Time 


••     SELECT  A  NURSING  ORDER  FOR  A  PATIENT  UIHDSE  GOAL  IS 
••  FUNCTIONS  AT  LEUEL  4:  DEPENDENT  AND  DOES  NOT  PARTICIPATE 


13  Assist  To/From  Bathroom 

23  Assist  To/From  Commode 

33  Assist:  Comb/Brush  Hair 

43  Dress  Patient 

53  Feed  Adult  Patient 


73  Give  Complete  Bath 

S3  Give  Emotional  Support 

93  Provide  for  Oral  Hygen 

103  Provide  Personol  Hygen 

113  Provide  Urinal/Bedpan 


123  Spoon  Feed  Child  C<B 

13  3  Other  Act  015  OOmn 

143  Other  Act  O30  <1  hr 

153  Special  Proc  Ol  <2h 

1B3  Xtra  Linen  Chge/ 
Partial  Bath 


63  Other  :  C 3 


Current  User: 


Select  one  number  COl-163  ---> 


Figure  5.1.1.1af 
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Ward  Room  Bed      Patient  Reg  tt  Date     Tlmo 

•••  INACTIUATE  A  NURSING  CARE  PLAN  ••• 


Data    TimB     Nursing  Diagnosis  Assessment 

Related  To  Factor        Patient  Goal 

Nursing  Order  Frequency     Emotion/Teach      Nurse 


0]  Sign-Off   13  Next  Plan    23  Inactivate  Plan   33  Return   43  Master  Screen 


Current  User: 


Select  one  number  CO-43  -— >   • 


Figure  5  •  1  •  1  •  lai 


Press  —  Ctrl  and  S  —  Kays  to  Pause  The  Scrolling  If  Necessary 

Page  No  .      1 
03/04/86 

Date     Time    Nursing  Diagnosis  Assessment 

Related  To  Patient  Goal 

Nursing  Order  Frequency     Emotional/Teach     Nurse 

01/01/86  10:06:24  Comfort  Alteration  In:  Poin    Alteration  In  Muscle  Tone 
Disease  /  Condition       Communicates  Experience  Tolerable  Pain 
Teach  Alt  Coping  Strategies  Structured  Teaching  G.  Harmeyar 

01/01/86  10:08:12  Impaired  Physical  Mobility     Reluctant  To  Move 
Musculoskeletal  Function   Able  To  Transfer  UJith  Assistance 
Assist  Bed  To  Wheelchair     TID  Structured  Teaching  G.  Harmeyer 

01/01/86  10:10:58  Self-Care  Deficit  Unable  To  Do  Toilet  Hygiene 

Neuromuscular  Impairment   Func  0  Level  2,  Needs  Assist/Supervis 
Keep  Commode  @  Bedside      TID  Structured  Teaching  G.  Harmeyer 


Figure  5.1.1.2 
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Press  —  Ctrl  and  S  —  Keys  To  Pause  The  Scrolling  IF  Necessary 
Page  No .      1 
01/12/BS 


Date     Time    Order 


01/11/BB  10:06:20  Teach  Alt  Coping  Strategies 

01/11/B6  12:08:07  Assist  Bed  To  Wheelchair 

01/11/BG  13:10:15  Self /ninimum  Care 

01/11/85  13:10:53  Keep  Commode  @  Bedside 

01/11/BB  14:13:47  Up  in  Chair  u/  Assist 

01/11/86  10:14:23  Diabetic  Diet 

01/12/86  10:17:14  Clonde 

01/12/86  10:17:40  Sodium 

01/12/86  10:18:00  Amylase 

01/12/86  10:18:26  Potassium 

01/12/86  10: 1B:5B  C02 

01/12/86  10:13:26  CBC 

01/12/86  10:13:54  Platlets 

01/12/86  10:20:18  BlucosB 

01/12/BB  10:22:02  Intake  8  Output 


Frequency 

Pr 

actitioner 

G. 

Harmeyer  RN 

TIC 

N. 
G. 

Lyons  nD 
Harmeyer  RN 

TID 

G. 

Harmeyer  RN 

TID 

N. 
N. 

Lyons  tlD 
Lyons  flD 

Daily 

S 

0600 

T. 

Bui 

no 

T. 

Bui 

nD 

T. 

Bui 

no 

Daily 

0 

0600 

T. 

Bui 

MD 

Daily 

0 

0600 

T. 

Bui 

nD 

Daily 

a 

0600 

T. 

Bui 

nD 

Daily 

a 

0500 

T. 

Bui 

no 

Daily 

a 

0600 

T. 

Bui 

no 

TID 

T. 

Bui 

no 

Figure  5 • 1 • 1 ■ 3 


Patient:  nary  niser 

Is  In:  Category  II 

Point  Ualue  Is:  27 


Figure  5.1.1.^ 
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SELECT  ADD  /  DELETE  A  USER  ••• 


12      Add  A  User 


2]   Delete  A  User 


0]   Sign-Qff 


Current  User: 


Select  one  number  CO-2]  ---->   ■ 


Fi2;ure  6 


USER  INFQRnATIDN 
THIS  INFORHATION  IS  CONFIDENTIAL  ••• 


First  Initial: 

niddlB  Initial; 

Last  Name: 

Category    of 
Requestor: 

Passujord: 

Access  Level: 


Figure  6. 1 
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•••  DELETE  A  USER  ••• 


User's  Name 


Category 


Access  Level 


0]  Sign-Off      ID  Next  User     2D  Delete  User      3D  Add/Delete  Scr 


Current  User: 


Select  one  number  C0-3D  ---->   ■ 


Fi.^ure  6.2 
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APPENDIX  G 

DATABASE  STRUCTURE 

Structure  of  the  four  databases  used  in  the  prototype 
project.   Names  have  been  elongated  to  provide  more  meaning 
for  the  reader . 

Patient  database 


Field  name 

Type 

Width 

LAST  NAME 

Character 

EO 

FIRST  NAHE 

Character 

IE 

MIDDLE  NAME 

Character 

3 

RATE/RANK 

Character 

11 

FMPSSN 

Character 

IE 

BIRTH  DATE 

Date 

e 

AGE 

Character 

3 

SEX 

Character 

1 

ADMISSION  DATE 

Date 

a 

REGISTRATION 

NUMBER 

Character 

B 

MEDICAL  DIAGNOSIS 

Character 

E4 

PHYSICIAN 

Character 

E4 

PROGNOSIS 

Character 

3 

ALLERGIES 

Character 

E4 

WARD 

Character 

E 

ROOM 

Character 

1 

BED 

Character 

1 

Order  database 


Field  name 

Type 

Width 

FMPSSN 

Character 

IE 

ORDER 

Character 

E7 

FREQUENCY 

Character 

IE 

TIME 

Character 

8 

DATE 

Character 

a 

PRACTITIONER 

Character 

EO 

QUALIFIER 

Character 

6 

TDDAYONLY 

Character 

1 

PATIENT  POINTS 

Numeric 

3 

MODULE 

Character 

1 

MONITOR  POINTS 

Numeric 

S 

EMOTION  POINTS 

Numeric 

2 

ROUTINE  POINTS 

Numeric 

a 

400 


Nursing  care  database 


Field  name 
FMPSSN 
NURSING 
NURSING 
RELATED 
PATIENT 
NURSE'S 
DATE 
TinE 
NURSE 
FREQUENCY 

EnOT I ONAL/ TEACHING 
REQUIRENENTS 


DIAGNOSIS 

ASSESSMENT 

FACTORS 

GOAL 

ORDER 


Type 

Uidth 

Character 

IE 

Character 

30 

Character 

27 

Character 

E5 

Character 

3B 

Character 

27 

Date 

8 

Character 

B 

Character 

20 

Character 

12 

Character 

13 

User's  information  database 


Field  name 

Type 

Width 

USER'S  FIRST  INITIAL 

Character 

2 

USER'S  MIDDLE  INTIAL 

Character 

3 

USER'S  LAST  NAME 

Character 

12 

REQUESTOR 

Character 

3 

PASSUORD 

Character 

5 

ACCESS  LEUEL 

Numeric 

1 
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INITIAL  DISTRIBUTION  LIST 


No.  Copies 


1.   Defense  Technical  Information  Center  E 

Cameron  Station 
Alexandria,  Uirginia   22304-6145 

E.   Library,  Code  0142  B 

Naval  Postgraduate  School 
Monterey,  California   93343-5002 

3.  CAPT  S.  A.  Holmes,  NC ,  USN  1 
Naval  Health  Sciences  Education  and  Training 

Command  CCode  ENCD 
Naval  Medical  Command  National  Capitol  Region 
Bethesda,  Maryland   20B14-5022 

4.  CDR  K.  A.  Reider  1 
Naval  School  of  Health  Sciancss 

CResearch  Department] 
Bethesda,  Maryland   20B14-5033 

5.  CDR  Mary  Hauser  ■  1 
Naval  Hospital 

Bethesda,  Maryland   20B14 

5.   LCDR  M.  Galdun  1 

Naval  Medical  Data  Services  Command 
Building  11 
Bethesda,  Maryland   20B14-50BB 

7.   LCDR  M.  E.  Quisenberry  1 

3095  Manna  Drive  #40 
Marina,  California   93933 

B.   LCDR  G.  R.  Harmeyer  1 

4923  France  Street 
North  Charleston,  South  Carolina   29406 

9.   Curricular  Office,  Code  37  1 

Naval  Postgraduate  School 
Monterey,  California   93943-5000 

10.   Professor  Tung  Bui  1 

Naval  Postgraduate  School 
Monterey,  California   93943-5000 
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Thesis 

H26 

c.l 


217i^^52 


Harmeyer 

Prototype  model  for 
automating  nursing 
diagnosis,  nurse  care 
planning  and  patient 
classification. 


26   h 


I 


3  2  3  02 


217i»52 


Thesis 

H26 

c.l 


Harmeyer 

Prototype  model  for 
automating  nursing 
diagnosis,  nurse  care 
planning  and  patient 
classification. 
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